#!/usr/bin/perl

use strict;
use warnings;

#use diagnostics;

delete @ENV{qw(ENV BASH_ENV IFS PATH)};    # make safe!

my $server = "ftp.myserver.example.org";
my $user="user12345";
my $password='patzwurd';

my $file = "Test.test";
open (my $fh, ">>", $file);
print $fh "#";
close $fh;

my @ftime = ( stat $file )[ 8, 9, 10 ];

print join "\n",
    "File: $file",
    "@ftime",
    "local: " . localtime( $ftime[0] ),
    "GMT: " . gmtime( $ftime[0] ),
	"";

use Net::FTP;
my $ftp = Net::FTP->new( $server, Debug => 0 )
    or die "Cannot connect to host: $@";

$ftp->login( $user, $password )
    or die "Cannot login ", $ftp->message;

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

print "\nUpload $file";
$ftp->put($file) 
	or die "put failed ", $ftp->message;

my $ftpmdtm = $ftp->mdtm($file);
print join "\n", 
	"\n",
	"FTP: mdtm $ftpmdtm",  
	"local: ".localtime($ftpmdtm),
	"GMT: ".gmtime($ftpmdtm);  

$ftp->quit;