#!/usr/bin/env perl 
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->requests_redirectable ([]);
my $src = 'http://usa.kaspersky.com/files/?file=kis&program=one&lang=en&track=pu_kiskis_usen';
my $res = $ua->get($src);
if ($res->is_redirect) {
	print "$src redirects to " . $res->header('Location') . "\n";
} else {
	print "$src has no redirect. It returned: " . $res->status_line . "\n";
}