Setup
Setup
[top]
Perl Program Template
#!/usr/bin/perl -w
#############################################################################
# PROGRAM
# [program name goes here]
#
# SYNOPSIS
# [program description goes here]
#
# USAGE
# [usage syntax goes here]
#
# PARAMETERS
# None
#
# OPTIONS
# None
#
# MODULES/FILES REQUIRED
# None
#
# PROGRAMS REQUIRED
# None
#
# AUTHOR
# FName LName
#
# DEVELOPMENT DATES
# mm.dd.yyyy
#
# RELEASE DATE
# mm.dd.yyyy
#
# COMMENTS
# None
#
# REVISIONS
# None
#############################################################################
# INTERRUPT SIGNALS
#############################################################################
$SIG{'INT' } = 'clean_up'; $SIG{'HUP' } = 'clean_up';
$SIG{'QUIT'} = 'clean_up'; $SIG{'TRAP'} = 'clean_up';
$SIG{'ABRT'} = 'clean_up'; $SIG{'STOP'} = 'clean_up';
$SIG{'TSTP'} = 'clean_up';
#############################################################################
# INCLUDE
#############################################################################
use File::Basename;
use strict;
#############################################################################
# USAGE
#############################################################################
my $prog = basename($0,"");
sub usage {
print "\nusage: $prog [param1] [param2]\n\n";
exit;
}
#############################################################################
# GLOBAL VARIABLES / SETTINGS
#############################################################################
umask(0);
#############################################################################
# MAIN
#############################################################################
#############################################################################
# CLEAN UP
#############################################################################
sub clean_up {
exit;
}
