diff --git a/aruba/UnitCsvRetransmit.pl b/aruba/UnitCsvRetransmit.pl
index 44aa4ac..aa86f7d 100644
--- a/aruba/UnitCsvRetransmit.pl
+++ b/aruba/UnitCsvRetransmit.pl
@@ -49,7 +49,7 @@ my($dmy1, $dmy2, $dmy3, $unit, $dmy4) = split(/\//,$path);
 
 print getTimeStamp("log") . " >> Unit $unit - Filename $tool" . "$suffix \n";
 
-my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 1, Passive => 0)
+my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 0, Passive => 0)
 	or warn getTimeStamp("log") . " >> Cannot connect to $hostname: $@";
 if ($ftp->login($username,$password)) {
 	if ($ftp->put($readingFile, $tool . $suffix)) {