#!/usr/bin/perl -w
# Name of program
#    VERSION: Version n (date)
#    PURPOSE:  Description of purpose of program
#    INPUT FILES:  Description of format of input files
#    OUTPUT FILES: Description of format of output files

############## LIBRARIES AND PRAGMAS ################
   use strict;
   use warnings;

#################### CONSTANTS ######################
# Contains listing of constants used by the program.
# I've put in some generally useful ones

   my $LF = "/n";          # Line feed
   my $tab = "/t";         # Tab
   my $true = 1;           # Makes true/false comparisons
   my $false = 0;          #      more readable

#################### VARIABLES ######################
# Contains listing of variables used by the program.
# List will evolve as you write the program.
# If variable needs to be initialized, this may be 
# the place to do it.

#   my                          # explanation of variable 
#   my                          # explanation of variable 
#   my                          # explanation of variable 

###################### FILES ########################
# Contains assignment of file names.
# This may be a good place to open the files.

  my $input_file = '';
  open HANDLE, "<$input_file" or die "Can't open $input_file: $!\n";
       # Replace 'HANDLE' with an appropriate word of your choice

################### MAIN PROGRAM ####################
# Main logic of the program


#################### SUBROUTINES ####################

#### Name of subroutine
#    Description of subroutine
sub { }