my $scpe= new Net::SCP::Expect (
             host => 'myhost',
             user => 'myaccount',
             password => 'secret',
             recursive => 1,
             preserve => 1,
             compress => 1,
             no_check => 1, 
             timeout => 60,
             );
        $scpe -> scp ("/home/path/whatever",
                      "myaccount@myhost:/tmp/"
                      );