note LTjake <p>c.f. requests_redirectable</p> <code> use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new( requests_redirectable => [], ); my $res = $ua->get( shift ); print $res->status_line, "\n", 'Location: ', $res->header( 'location' ), "\n"; __END__ bricas@bricas-laptop:~$ perl red.pl http://bit.ly/gf4h1 301 Moved Location: http://github.com/rjbs/tpf-grant-history/blob/master/history.txt </code> <div class="pmsig"><div class="pmsig-168548"> <p>--<br>"<i>No matter how much you push the envelope it'll still be stationary."</i></p> </div></div> 787356 787356