Select Code to Download

#!/usr/bin/perl -Tw

...
      submit,end_form,end_html,
   ;
}

use strict;

...
my $response = $ua->request($request);

print $response->content, "\n";

use strict;
use IO::Socket qw(:DEFAULT :crlf);
...

my $data;
print $data while read($sock,$data,1024) > 0;