[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]~$