open F,$0;open O,">$$.pl";print O while <F>