#!perl -w
use strict;
use Net::FTP;

my $Local="C:\\Winnt\\Profiles\\jlewis\\desktop";
my $File="cron.file";
my $key;
my $IP;
my $user="username"; # NOT the real username
my $pass="password"; # And DEFINITELY NOT
                         # the real password

my %Servers=("1"=>'128.37.37.201',
             "2"=>'128.38.38.201',
             "3"=>'128.39.39.201');

chdir($Local);

foreach $key(%Servers){
  $IP="$Server{$key}";
  chomp($IP);
  my $FTP=Net::FTP->new("$IP");
  $FTP->login("$user","$pass");
  $FTP->ascii();
  $FTP->put($File);
  $FTP->quit;
}