#!/usr/bin/perl -wl
use LWP::UserAgent;
use POSIX;
use CGI::Enurl;
for (1 .. 20){
my $tanggal= POSIX::strftime ("%Y-%m-%d %H:%M:%S", localtime);
print "No.",$_;
my $web= LWP::UserAgent->new;
my $response =$web->get("http://192.168.2.6/wp".enurl($tanggal));
print $response->decoded_content;
sleep 1;
}
#!/usr/bin/perl -wl >>>> wl adalah sama dengan writeln pada pada bahasa paskal
use LWP::UserAgent; ####ini adalah modul web agen/reques selengkapnya http://search.cpan.org/~gaas/libwww-perl-5.836/lib/LWP/UserAgent.pm
use POSIX; ###ini adalah modul untuk memanggil tanggal selengkapnya http://search.cpan.org/~jesse/perl-5.12.1/ext/POSIX/POSIX.pod#TIME
use CGI::Enurl; ###modul untuk memparsing menjadi http reques selenkepnya http://search.cpan.org/~jenda/CGI-Enurl-1.08-withoutworldwriteables-generated-by-the-silly-pseudosecurity-measure-devised-to-piss-off-nonunixers/Enurl.pm
