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