Select Code to Download

#!/usr/bin/perl
...
     print "Error: " . $res->status_line . "\n"; 
  }

    my $ua = LWP::UserAgent->new;
    
...
  }