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.pl

file =  1/0/70   #WRONG

##</code><code>##

perl -e " use File::Stat; my $mtime = (stat $ARGV[0])[9];  my($sec,$min,$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

##</code><code>##

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

file =  11/2/110  #OK