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