use LWP::UserAgent; my $ua = LWP::UserAgent->new( requests_redirectable => [] ); while() { chomp; my $r = $ua->head($_); print $_,": ",$r->code,"\n"; } __DATA__ http://www.perlmonks.org/ http://tinyurl.com/5j5l5