open my $stderr_fh, '>>', '/tmp/$host.err' or die ...;
open my $stdout_fh, '>>', '/tmp/$host.log' or die ...;
 
my $ssh = Net::OpenSSH->new($host, default_stderr_fh => $stderr_fh,
                                   default_stdout_fh => $stdout_fh);
$ssh->error and die "SSH connection failed: " . $ssh->error;
 
$ssh->scp_put("/foo/bar*", "/tmp")
  or die "scp failed: " . $ssh->error;