### ----------------------------------------------------
### -- SSH::LibSSH
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: examples/scp-upload.raku
### ----------------------------------------------------
use SSH::LibSSH;

sub MAIN($host, $user, $local, $remote, Int :$port=22, Str :$password) {
    my $session = await SSH::LibSSH.connect(:$host, :$user, :$port, :$password);
    await $session.scp-upload($local, $remote);
    $session.close;
}


