better time format for scp (don't have :)

diff --git a/p.pl b/p.pl
index 1886315..1aff6ca 100755 (executable)
--- a/p.pl
+++ b/p.pl
@@ -10,7 +10,8 @@ my $filename = 'Intervali_Openface_novi_rad_Boris_export.txt';
 
 my $debug = $ENV{DEBUG} || 0;
 
-my $today = strftime("%Y-%m-%dT%H:%M:%S", localtime(time()));
+# better time format for scp (don't have :)
+my $today = strftime("%Y-%m-%d_%H%M%S", localtime(time()));
 warn "# today $today";
 
 open(my $err_fh, '>', "out.$today.log");