use strict;
use Net::FTP;

my $Local = 'c:\winnt\profiles\jlewis\desktop';
my $File  = "cron.file";
my ($user, $pass) = ("username", "password");

my @servers = qw/ 128.37.37.201 128.38.38.201 128.39.39.201 /;

chdir($Local) or die "$Local: $!";

foreach (@servers) {
  my $FTP = new Net::FTP ($_) or die "Can't connect to $_";
  $FTP->login($user, $pass) or die "Can't login as $user"
  $FTP->ascii;
  $FTP->put($File) or die "Can't put $File"
  $FTP->quit;
}