use strict;
use warnings;


my $shbstatus;


BEGIN {
    $shbstatus = (-f "C:/shb") ? 1 : 0;
}


END {
    $shbstatus  ? print "shb identified\n"
                : print "shb was not identified\n";
}


print "XYZ\n";
print "$shbstatus\n";