open O,">$$.pl";print O `cat $0`