diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index 82f10af..9d6b76f 100755
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -346,11 +346,12 @@ sub emailSend {
         )
       )
     {
-        print getTimeStamp("log") . " - $email_obj\n";
-        print getTimeStamp("log") . " - Mail sent to: $email_addr.\n";
+        print getTimeStamp("log") . " - pid $$ >> $email_obj\n";
+        print getTimeStamp("log") . " - pid $$ >> Mail sent to: $email_addr.\n";
     }
     else {
-        print getTimeStamp("log") . " - Error in sending mail to: $email_addr.\n";
+        print getTimeStamp("log")
+          . " - pid $$ >> Error in sending mail to: $email_addr.\n";
     }
 }
 
diff --git a/SendFtpElabData.pl b/SendFtpElabData.pl
index 22ed8c2..c0a9c5a 100755
--- a/SendFtpElabData.pl
+++ b/SendFtpElabData.pl
@@ -10,7 +10,7 @@ $|++;    # Autoflush
 
 my $username = 'ase_lar';
 my $password = 'laravel';
-my $db_name   = 'ase_lar';
+my $db_name  = 'ase_lar';
 my $server   = 'localhost';
 my $matlab_timestamp;
 my $ftp_send = 1;
@@ -121,9 +121,12 @@ sub trxelab {
         $ftp_parms{$key} = $val;
     }
 
-    print getTimeStamp("log")
-      . " - pid $$ >> $unit - $tool ftp parm:\n"
-      . Dumper(%ftp_parms);
+    print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
+
+    while ( my ( $key, $value ) = each(%ftp_parms) ) {
+        print getTimeStamp("log")
+          . " - pid $$ >>         $key = $ftp_parms{$key}\n";
+    }
 
     if (   !defined $duedate
         or ( $duedate eq '0000-00-00 00:00:00' )
@@ -183,7 +186,8 @@ GetOptions(
     "tool=s"     => \$tool
 ) or die("Error in command line arguments\n");
 
-print getTimeStamp("log") . " - pid $$ >> Send via FTP elab data for $unit - $tool.\n";
+print getTimeStamp("log")
+  . " - pid $$ >> Send via FTP elab data for $unit - $tool.\n";
 
 if ( $tool eq 'DT0076' ) {
     sleep(600);