END {
use Data::Dumper;
print Dumper(\%INC);
}

##</code><code>##

use POSIX qw(strftime);

print strftime "%Y-%m-%d",localtime(time);