Public feed
#892741
[danh@bigbang]~$ cat check_optimus.pl
#!/usr/bin/perl
use WWW::Mechanize;
my $agent = WWW::Mechanize->new( autocheck => 1 );
$agent->get( "http://optimus.peanutlabs.com/Optimus/st.html" );
print $agent->links;
[danh@bigbang]~$ cat check_optimus.pl
[danh@bigbang]~$ ./check_optimus.pl
[danh@bigbang]~$