my $scpe = Net::SCP::Expect->new;

$scpe->login('user name', 'password');

$scpe->scp('file','host:/some/dir');