Select Code to Download

[matt@test ~/testdir]$ stat -c %Y AMR.xml
1206990376

#!/usr/bin/perl

...
    my $file_time = strftime("%H:%M:%S", localtime($ds{$sorted_file}))
+;
    print qq[<option value="$sorted_file">$file_date $file_time</optio
+n>\n];
}