close(STDERR);
open(ME, "$0");
$^W=1;
while (<ME>) {
    print;
}
close ME;