my $ftp;
my $host = "192.168.125.42";
$ftp = Net::FTP->new($host) 
  or die "Cannot connect to host: $@";
$ftp->login("anonymous",'-anonymous@')
  or die "Cannot login ", $ftp->message;
$ftp->ascii;
$ftp->put($filename_tran)
  or die "put failed ", $ftp->message;
$ftp->put($filename_occ)
  or die "put failed ", $ftp->message;
$ftp->quit;

##</code><code>##

RI Anaheim Garden Grove	06-27-2006	UNKNOWN	GROSS HOTEL SALES	100.80M

##</code><code>##

RI Anaheim