Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$ssh->expect(60, '$');
$ssh->send("exit\n");
$ssh->close();

my $ssh = Expect->new('ssh tilrman@localhost;');