sub Debug {
    if ( $debug ) {
        my $msg = shift;
        print $msg, "\n";
    }
}