#!/usr/bin/perl
 
use warnings;
use strict;
use Net::FTP;
 
my $ftp = Net::FTP->new("ftp.monserveurFTP