Select Code to Download

#!/usr/bin/perl
use IO::Socket;
my $sock1;
...
$sock1->send($str);
}
close($sock1);