http://www.perlmonks.org?node_id=166067


in reply to Can You Explain How to Check a Link for Deadness

use LWP::Simple; my $page = 'http://www.perlmonks.org/'; $headers = head($page); print $headers->{'_msg'}," ", $headers->{'_rc'}, "\n\n"; # have a look at the info we get back for interest sake use Data::Dumper; print Dumper $headers; __DATA__ OK 200

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print