Select Code to Download

 my $ua = LWP::UserAgent->new;
...
    (print the $failmsg)
    return;                           
 }

print "Content-type: text/html\n\n";