use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('root@foo.bar.com',
                            passwd => $passwd,
                            port => 223);

$ssh->scp_put("/home/my/local/file/whatever.txt",
              "/my/remote/path_name");