Select Code to Download

my @df_arr = $ssh->capture("df -k /home/ | tail -1") or die "Unable to
+ run command\n";
print "$s:  Disk space /home/ = $df_arr[3] \n";

sub disk_space {
    my( $ssh, $dir ) = @_;
...
}

disk_space( $ssh, '/home/' );