Select Code to Download

^[[01m[root@remotehost ~ ]^[[m # hostname
remotehost
...
^[[01m[root@remotehost ~ ]^[[m # exit
logout
$

#!/usr/bin/perl -w
use warnings;
...
$ssh->close();
}