Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
my $mtime = (stat $filename)[9];

print $mtime;