sub readem {
        local $insFile = shift; local $back = "";
    if (open(FL, "<$insFile")) {
        while (<FL>) {$back .= $_;}
    close(FL);    } else {&showErr('Fatal File Read Error');}
    return $back;
}