$ftp->command(uc $cmd, @_);
$ftp->response();

#!/usr/bin/perl

use strict;
use warnings;

use Net::FTP;

my $server   = "ftp.********";
my $user     = "******";
my $password = '****************';

my $ftp = Net::FTP->new( $server, Debug => 1 ) or die "Cannot connect to $server: $@";
$ftp->login( $user, $password ) or die "Cannot login ", $ftp->message;

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

$ftp->put("test.test") or die "get failed ", $ftp->message;

$ftp->quot( "MFMT", "19990101010101", "test.test" ) or die "get failed ", $ftp->message;

$ftp->quit;

Net::FTP=GLOB(0x24eae30)<<< 220 ******* FTP server ready
Net::FTP=GLOB(0x24eae30)>>> USER ************
Net::FTP=GLOB(0x24eae30)<<< 331 Password required for *******
Net::FTP=GLOB(0x24eae30)>>> PASS ....
Net::FTP=GLOB(0x24eae30)<<< 230 User ******** logged in
Net::FTP=GLOB(0x24eae30)>>> CWD /prv
Net::FTP=GLOB(0x24eae30)<<< 250 CWD command successful
Net::FTP=GLOB(0x24eae30)>>> PASV
Net::FTP=GLOB(0x24eae30)<<< 227 Entering Passive Mode (********).
Net::FTP=GLOB(0x24eae30)>>> STOR test.test
Net::FTP=GLOB(0x24eae30)<<< 150 Opening BINARY mode data connection for test.test
Net::FTP=GLOB(0x24eae30)<<< 226 Transfer complete
Net::FTP=GLOB(0x24eae30)>>> MFMT 19990101010101 test.test
Net::FTP=GLOB(0x24eae30)<<< 213 Modify=19990101010101; test.test
Net::FTP=GLOB(0x24eae30)>>> QUIT
Net::FTP=GLOB(0x24eae30)<<< 221 Goodbye.

[root@***** prv]# stat test.test
  File: `test.test'
  Size: 0               Blocks: 0          IO Block: 4096   regular empty file
Device: 2ah/42d Inode: 206152378   Links: 1
Access: (0644/-rw-r--r--)  Uid: (****/*****)   Gid: (  ****/  *****)
Access: 1999-01-01 02:01:01.000000000 +0100
Modify: 1999-01-01 02:01:01.000000000 +0100
Change: 2011-02-23 15:58:02.000000000 +0100

[root@**** prv]#