#!/usr/bin/perl

 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new;
 $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
 $ua->default_header('VIA' => "someproxy.ru");
 $ua->default_header('Referer' => "http://mysite.ru");
 $ua->default_header('Accept' => "text/html");
 $ua->default_header('Accept-Charset' => "windows-1251,utf-8");

 my $response = $ua->get('http://site.com');

 preg_match_all("#src='(.)'#",$data,$matches);
 print_r($matches);

 sleep(30);

 header("Location: {$link[1][0]");

 if ($response->is_success) {
     print $response->decoded_content;
 }
 else {
     die $response->status_line;
 }