BEGIN
{
 use vars qw($Bgn);
 $Bgn=1 unless $ENV{'SM'};
 push @INC,$ENV{'SM'}||""."/../bin";
};

use strict;

die "[Error] Environmental string not found: \$SM\n" if $Bgn;

require 'errors.pm';
...
...