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/' );