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