#!/usr/bin/perl -w use strict; my $NONFATALERROR = 0;