$| = 1;

use Net::SFTP::Foreign;
# $Net::SFTP::Foreign::debug=1|2|4|32|64;

while (1) {
  my $s = Net::SFTP::Foreign->new('localhost',
                                  password => '...');

  my $r = $s->put($ARGV[0], "/tmp/delete.me");
  print "ok: $r\n";
}