#!/usr/local/bin/perl
#
use Net::FTP;
#
# Configuration
#
$host = "ftp.plus.net";
$username = "username";
$password = "password";
$domain = "www.username.plus.com";

$done = false;
while ($done eq false) 
	{
	$ftp = Net::FTP->new("$host", Debug =>0);
	$ftp->login('$username','$password');
	$ftp->cwd("logs");
	$ftp->binary;
	$updated = $ftp->mdtm("$domain.gz");
	$time = time;
	$old = $time - $updated;
	if ($old > 21600) 
		{
		print "$domain.gz is older than 6 hours - waiting\n";
		$ftp->quit;
		sleep 300;
		} 
	else 
		{
		print "Getting $domain.gz\n";
		$ftp->get("$domain.gz");
		$done = true;
		$ftp->quit;
		}
	}
system("gunzip $domain.gz");