Select Code to Download

$ip = <STDIN>;
# Remove the trailing newline ...
...
.
# Make sure your connection opened
my $ssh = Net::SSH::Perl->new($ip) or die($!);