my $ftp;
my $host = "192.168.125.42";
$ftp = Net::FTP->new($host) 
  or die "Cannot connect to host: $@";
$ftp->login("anonymous",'-anonymous@')
  or die "Cannot login ", $ftp->message;
$ftp->ascii;
$ftp->put($filename_tran)
  or die "put failed ", $ftp->message;
$ftp->put($filename_occ)
  or die "put failed ", $ftp->message;
$ftp->quit;