explorer@next3:~> perl -le 'print join(":",(localtime)[2,1])'
20:44

#!/usr/bin/perl -w

use strict;
use Net::FTP;

no warnings;

my $USERNAME = "user";
my $PWD = "passw";
my $SERVER = "ip";
my $ARCHIVO = "LOGS";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
 $year=$year+1900;
 $mon=$mon+1;
 $fecha="YMD_$year-$mon-$mday\_HM_$hour:$min";


system("/usr/bin/gzip /root/LOGS/*.log" $ARCHIVO_$fecha )


my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
$FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");
$FTP->cwd("/root/LOGS/");

    $FTP->put( *.gz );

$FTP->quit();