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";

##</code><code>##

sub disk_space {
    my( $ssh, $dir ) = @_;
    my @df_arr = $ssh->capture("df -k '$dir' | tail -1") or die "Unable to run command\n";
    print "Disk space $dir = $df_arr[3]\n";
}

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