UNIX for Advanced & Expert Users

#!/usr/bin/perl -w

use Net::FTP;

my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
$mon=sprintf("%02d",++$mon); ## add 1 to the month. localtime uses 0-11 for months
$year+=1900; ## add 1900 to the year. localtime starts at 0 from 1900.
$mday=sprintf("%02d",$mday); ## format single digit days to a 2 digit number.
$sec=sprintf("%02d",$sec);
$min=sprintf("%02d",$min);
$hour=sprintf("%02d",$hour);

$dir=$year . $mon . $mday;

my ($host, $user, $pass, $localfs)=( 'your_host', 'ur_username', 'ur_passwd', 'dir_2_download_files_2' );
chdir("$localfs") or die "can not change directory /homes($!)";;

$ftp = Net::FTP->new("$host", Debug => 0 ) or warn "Cannot connect to $host: $@";
$ftp->login("$user","$pass") or warn "Cannot login ", $ftp->message;
$ftp->binary();
my @dir=grep /$dir/,$ftp->ls(".");
$ftp->cwd("$dir[0]");
my @ftp_files=$ftp->ls(".");
for (@ftp_files) { $ftp->get("$_") };
$ftp->quit;