use warnings;
close(STDERR);
open(ME, "$0");
while (<ME>) {
    print;
}
close ME;