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