#!perl -sw
open(F,$0);open(O,">$$.pl");print O while(<F>);close F;