use LWP;
my $url = "oldurl";

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => $url);

my $res = $ua->request($req);

print $res->status_line;