use LWP::UserAgent;
use HTTP::Request;

my $url='http://del.icio.us/url/check?url=http://www.testing.invalid';
my $ua = LWP::UserAgent->new();                                                     
my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
print $response->header('Location') , "\n";