Select Code to Download

use strict;
use warnings;
...
close $infile;
close $outfile;
move($outfilename,$infilename);

use Date::Parse;
use Date::Format;

@time = strptime("20150518");
print strftime("%e %b %Y",@time);