#!/usr/bin/perl --

use strict;
use warnings;

use autodie 2.10;
use File::Spec;

Main(@ARGV);
exit(0);

sub Main {
    my $file = File::Spec->rel2abs(__FILE__) . '-testfile';
    open my ($fh), '>', $file;
    close $fh;
    print "        gmtime ", scalar gmtime, "\n";
    print "   stat gmtime ", scalar gmtime( ( stat $file )[10] ), "\n";
    print "     localtime ", scalar localtime, "\n";
    print "stat localtime ", scalar localtime( ( stat $file )[10] ), "\n";
    unlink $file;
} ## end sub Main

__END__

##</code><code>##

        gmtime Thu Jun 17 11:36:22 2010
   stat gmtime Thu Jun 17 11:36:22 2010
     localtime Thu Jun 17 04:36:22 2010
stat localtime Thu Jun 17 04:36:22 2010