Help for this page
my $Err; BEGIN { $Err= defined $ENV{SM} }
my $Err= 0; BEGIN { $Err= 1 if ! $ENV{SM} }
my $Err; $Err= 1 if ! $ENV{SM}; $Err= 0;