BEGIN { use vars qw($err); $err = $ENV{SM} ? 0 : 1; push @INC, "$ENV{SM}/../bin" unless $err; } die "Environment variable SM not set!\n" if $err; require 'error.pm';