Select Code to Download

perl -e " use File::stat qw/stat/; my $mtime = (stat $ARGV[0])[9];  my
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mt
ime);print qq!file = $file $mday/$mon/$year\n!;  "  web-browser-gtk2.p
+l

file =  1/0/70   #WRONG

perl -e " use File::Stat; my $mtime = (stat $ARGV[0])[9];  my($sec,$mi
+n,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime);prin
t qq!file = $file $mday/$mon/$year\n!;  "  web-browser-gtk2.pl

file =  11/2/110  #OK

perl -e " my $mtime = (stat $ARGV[0])[9];  my($sec,$min,$hour,$mday,$m
+on,$year,$wday,$yday,$isdst) = localtime($mtime);print qq!file = $fil
e $mday/$mon/$year\n!;  "  web-browser-gtk2.pl

file =  11/2/110  #OK