# perl
BEGIN {
    $shbstatus = (-f "C:/shb") ? 1 : 0;
}
END {
    $shbstatus  ? print "shb identified\n"
                : print "shb was not identified\n";
}
use warnings;

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