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;