perl -lib=. -MTemp -we1