Help for this page
END { use Data::Dumper; print Dumper(\%INC); }
use POSIX qw(strftime); print strftime "%Y-%m-%d",localtime(time);