Select Code to Download

#!/usr/bin/perl -w
use IO::Socket;
...
   }
   close $client;
}

#!/usr/bin/perl -w
use strict;
...
    }
    return [ @lines ];
}

    my $plines = get_from_server($handle);
    map { print "$_\n" } @$plines;