vote.pl

#!/usr/bin/env perl

use 5.010;
use utf8;
use strict;
use warnings;

use Web::Query;

my $url = 'http://info.nec.go.kr/electioninfo/electionInfo_report.action?electionId=0020121219&requestURI=%2Felectioninfo%2F0020121219%2Fvc%2Fvcvp01.jsp&topMenuId=VC&secondMenuId=VCVP&menuId=VCVP01&statementId=VCVP01_%231&sggTime=20%EC%8B%9C&cityCode=0&timeCode=0&x=34&y=18';

while (1) {
    say(
        wq($url)
        ->find('div.searchResult div.cont_table table#table01.table01 tbody tr td.alignR span strong')
        ->first->text
    );
    sleep 5;
}