Select Code to Download

my $sock = IO::Socket::INET->new("$remote_server:43") || die $!;
     print $sock "$data\r\n";
     while ( <$sock> )
{print}

print $sock "$data\r\n";
my @output = <$sock>;
...

sub true {
open(tmpl, "email.txt") || print $!;