#!perl -p
BEGIN {($^I='.'.localtime)=~s/[^\w\d.]+/_/g}