my $sftp = Net::SFTP::Foreign->new($host,
                                   user => $user, password => $password,
                                   autodie => 1);

if (lc($function) eq 'get) {
  $sftp->get($file, $dest);
}
else {
  $sftp->put($file, $dest);
}