#!/usr/bin/perl

use strict;
use warnings;
use DB_File;
use POSIX qw(strftime);
use Net::SMTP;
use Net::Domain qw(hostname hostfqdn hostdomain);
use Net::FTP;



my $ftp = Net::FTP->new('vpncl.cl-informatique.com', Debug=>1, Timeout=>20) or die "Impossible connexion";
$ftp->login('web01ftp','Kq0B3ZsB!YbR') or die "impossible identifie".$ftp->message;
$ftp->cwd('/usbshare1-2/wwwcl/') or die "cannot go to wwwcl";
$ftp->put('/home/alkclinf/www/') or die "copie impossible";
$ftp->quit() or die "impossible deco";

#my $ftp="vpncl.cl-informatique.com";	
#my $ftp_user="web01ftp";
#my $ftp_password="Kq0B3ZsB!YbR";	
	#WE HAVE ALL THE FILES ==> CREATING TARBALL ON THE FLY :-)