#!/usr/bin/perl -w

use strict;

my $NONFATALERROR = 0;

##</code><code>##

############################################
# build a master file of daily backup jobs #
############################################
open LIST, ">", "/tmp/backupjobs/${SESSION}.ksh" or
    { print MASTERLOG $TIMEIS->() . " > Unable to build masterlist /tmp/backupjobs/${SESSION}.ksh\n";

      ###########################
      # Set nonfatal error to 1 #
      ###########################
      $NONFATALERROR = 1;
    };

if ( ! $NONFATALERROR == 0 )
{
    print LIST "$_\n" for (@BACKUP_SCRIPTS);
    close LIST;
    print MASTERLOG $TIMEIS->() . " > List /tmp/backupjobs/${SESSION}.ksh has been built\n";
}

##</code><code>##

syntax error at ./newbackup.pl line 179, near "$NONFATALERROR "
Execution of ./newbackup.pl aborted due to compilation errors.