Select Code to Download

my $file_date=localtime((stat("$file"))[9]);

#!/usr/bin/perl -w
#!C:\Perl\bin\perl -w
...
   print "\n";
 }
closedir(DIRHANDLE);