use strict;
use Net::FTP;
my $fn = shift;

my $ftp = Net::FTP->new("ftp.site.com", Debug => 0)
  or die "Cannot connect to ftp.site.com: $@";

$ftp->login("foo",'bar') or die "Cannot login ", $ftp->message;

$ftp->binary;

$ftp->cwd("/for-DK")
  or die "Cannot change working directory ", $ftp->message;

$ftp->put($fn)
  or die "put failed ", $ftp->message;
$ftp->quit;
print STDERR "ok $fn";