#!/usr/bin/perl -w

BEGIN {
        use vars qw($foo);
        $foo = 'bar';
}

use strict;

print "$foo\n";

##</code><code>##

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';