use Net::FTP;
my $file;
$ftp = Net::FTP->new("ftp.xoom.com", Debug => 0);
$ftp->login("username",'password');
print "logged in\n";
$ftp->cwd("/img");
for($file = 384; $file<651 ; $file++) {
	if($file != 504) {
		$ftp->get("$file.jpg");
		print "got $file.jpg\n";
	}
}
$ftp->quit;