# Creates path to home directory
$homedir = "/var/www/localhost/htdocs/$user_name";

# Sets user directroy path
$last_user_dir = "/var/www/localhost/htdocs/$last_user_name";

# Start of ssh 
my $ssh_conn=Net::SSH::Perl->new( $ssh_host, debug => 3,  protocol => '2');
$ssh_conn->login( $ssh_user, $ssh_pass );
($stdout, $stderr, $exit) = $ssh_conn->cmd( "cp -r $last_user_dir $homedir");
$ssh_conn->cmd( "rm -r $last_user_dir" );
$ssh_conn->cmd( "exit" );