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);

##</code><code>##

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