Shell Programming and Scripting

#!/usr/local/bin/perl

use Net::FTP;

$TEMP = "$script_dir/TEMP";

date_format ();

	foreach $t ( 10.12.80.19 ) { 
		chdir "$TEMP";
		print "Now Processing $t ...\n";

    		$ftp = Net::FTP->new("$t", Timeout=>240, Debug => 0)
      		or die "Cannot connect to some.host.name: $@";

    		$ftp->login("login",'password')
      		or die "Cannot login ", $ftp->message;

    		$ftp->cwd("/mydirectory")
      		or die "Cannot change working directory ", $ftp->message;
       		 
		my @lines = grep { /^ME.*KMR.*($date_today|$date_yest).*sorts$/ } $ftp->ls();
			foreach my $filename (@lines) {
    				$ftp->get($filename);
			};

    		$ftp->quit;
	};

sub date_format {

$date_today = `date '+%y%m%d'`;
$date_yest = $date_today - 1;
return ($date_today, $date_yest);

}

use Time::localtime;
$date_today = sprintf("%02d%02d%02d", (localtime->year+1900) % 100, localtime->mon+1, localtime->mday);