use strict;
use warnings;

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

my $url='http://del.icio.us/url/check?url=http://www.testing.invalid';
my $ua = LWP::UserAgent->new( max_redirect => 0 ); 

my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);

# check the outcome
  if ($response->is_success) {
     print $response->content;
  }
  else {
     # Testausgabe
     #print "Error: " . $response->status_line . "\n";
     #print "       " . print $response->header('Location') , "\n";
     
     # Umleitung ist z. B. Statuscode 301, 302, 303, 307
     my ($retsc) = $response->status_line =~ /^(\d{3})/;
     for my $sc (301,302,303,307) {
        print 'Umleitung -> ', $response->header('Location'), "\n" if ($retsc == $sc) 
    }
  }