[theorem@gbl20000317 ]$ ./sample.pl 
Check is 
[theorem@gbl20000317 ]$ cat sample.pl 
#!/app/gmd/bin/perl

my $CHECK = '';
BEGIN {
  $CHECK = 1;
}
print "Check is $CHECK\n";