Select Code to Download

#!/usr/bin/perl
use IO::Socket;
...
 print $socket "GET / HTTP/1.0\n\n";
 print while(<$socket>);
 close $socket;

#!/usr/bin/perl
use IO::Socket;
...
shutdown(\*SSL,1);
print while(<SSL>);
close SSL;