perl -wde 0