Side note: I had a hard time trying to read your post. Consider formatting it in a more readable fashion, e.g. using <OL> tags et similia.

Whatever, I had some problems transferring certain files from one system to another with a few modules I tried, then I switched to Net::SFTP and it went like a charme. I don't know if this could help you.

Also, I've heard good cmts about Expect.

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

Please use code tags. I'm not even reading your post, and I bet many other monks won't as well.