my $scpe = Net::SCP::Expect->new(user=>$user,password=>$xxxx);
$scpe->scp($source,$destination);