Help for this page

Select Code to Download

Select or download this

    exec @cmd or do {
        carp "$Me: exec of @cmd failed";
        eval { require POSIX; POSIX::_exit(255); };
        exit 255;
    };

Select or download this

>perl -MPOSIX -le"DESTROY{print q{foo}}$o=bless{};$ARGV[0]?_exit 1:exi
+t 1" 1

>perl -MPOSIX -le"DESTROY{print q{foo}}$o=bless{};$ARGV[0]?_exit 1:exi
+t 1" 0
foo