As stated, LWP::UserAgent will be of help here, but make sure to look at the requests_redirectable option if you want to actually see if the URL returns a 300-code. If you leave HEAD and GET as requests_redirectable values, you'll get the results of the codes after the redirection.

use LWP::UserAgent;

my $ua = LWP::UserAgent->new( requests_redirectable => [] );
while(<DATA>) {
   chomp;
   my $r = $ua->head($_);
   print $_,": ",$r->code,"\n";
}

__DATA__
http://www.perlmonks.org/
http://tinyurl.com/5j5l5
[download]

In this case, the tinyurl URL will return 301. If you leave the request_redirectable option as default, you'll get 200 as status code (coming from perlmonks.org, not tinyurl.com).