Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
  my $mtime = (stat("$dir/$file"))[9];
  print "$mtime => $file\n";
};