Select Code to Download

#!/usr/bin/perl -w

...
use strict;

print "$foo\n";

BEGIN {
    use vars qw($err);
...
}
die "Environment variable SM not set!\n" if $err;
require 'error.pm';