I am actually trying to FTP a tar.gz file to linux from windows using perl module NET::FTP. Here is my code and the output

my $ftpBox = Net::FTP->new($host) || 
  die "failed to connect to $host $!";
$ftpBox->login($user_name, $password) || 
  die "failed to log onto $host $!";
$tar = "run.tar.gz";
$ftpBox->type("binary")
$ftpBox->type(byte);
$ftpBox->put($tar, "run.tar.gz") || 
   die "Failed to put \"$tar\" to destination_dir";
#sleep (10);
[download]

The output is

Expected
-rw-r--r--   1 user user  271317 Jun 24 11:02 run.tar.gz

Obtained after the ftp 
-rw-r--r--  1 user user 272232 Jun 24 12:15 run.tar.gz
[download]

So if you see the file size above ther are approximately 1k bytes added to the file when transferred through the NET::FTP module. Can anyone please explain why is this happening and a work around for this.

Regards, Sid

Formatting fixed by holli