package Syntax;
our $VERSION = '1.00';
use B qw(minus_c save_BEGINs);
sub import {
    eval q[
        BEGIN {
            minus_c;
            save_BEGINs;
            close STDERR;
            open (STDERR, ">", \$Syntax::stderr);
        }
    ];
    die $@ if $@;
}
1;