$ssh = Net::OpenSSH->new($host,
                         user => $user, password => $password,
                         master_opts => [-o => 'StrictHostKeyChecking=no']);

$ssh->scp_put(...);
$ssh->scp_get(...);