$uatopasson = $ENV{"HTTP_USER_AGENT"};
    $referertopasson = $ENV{"HTTP_REFERER"};
    $ua = LWP::UserAgent->new;
    $ua->agent($uatopasson);
    $req = HTTP::Request->new (GET => "$file");  
    $req->header('referer' => $referertopasson);
    $res = $ua->request($req);
    $webpage = $res->content;
    print "Content-type: text/html\n\n";

    print $webpage;