Select Code to Download

my $ua = LWP::UserAgent->new;
my $ret = $ua->get($site);
my $url = $ret->request->uri ."";    
print "URL returned: ".$url."\n";