#!/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;