#!/export/epm/perl/bin/perl -w
#############################################################
### SET SYSTEM OPTS & DEFINE REQUIRED PERL MODULES        Jef
#############################################################
# UNCOMMENT THE FOLLOWING 4 LINES FOR DEBUGGING PURPOSES ONLY
require 5.8.0; # Require a minimum of Perl v5.8.0 to run
use strict ;
        no strict "subs";
        no strict "refs";

# PLEASE DO NOT UNCOMMENT THE FOLLOWING UNLESS YOU REALLY, REALLY
# (NO, I MEAN REALLY...) NEED IT - BRINGS PERL DOWN TO A SCREECHING CRAWL!!!
# use Data::Dumper;

use POSIX;
use Net::SNMP ;
use Sys::Hostname ;
use Socket ;
use IO::Handle ;
use File::Basename;
use Time::Local;
# use Cwd;

#  OPEN UP INITIAL LOG (NOT TO BE CONFUSED W/LOGFILE IN CONFIG FILE...
my $ProgFileName=basename($0); # $0 contains name of this script (full path) basename trunicates it to just name and extension
my $NickName=( split(/\./,$ProgFileName) )[0]; # BY SURROUNDING A LIST WITH PARENS, YOU CAN INDEX IT LIKE AN ARRAY!
my $logFile = '/var/tmp/'.$NickName.'.stdout';
open (LOG, ">>$logFile") || warn "Unable to open logfile [$logFile]!\n";
LOG->autoflush(1);

my $HOST="localhost";
my $DEBUG=1;
my $PLATFORM = lc($^O);
my $SHOW_SUBS=0;
my $globvar="Here is my global variable";
my @global_array=(100);

scalar eval `cat import.pl`; die $@ if $@;

TestOutput();

print "$globvar\n";
print "$PLATFORM\n";
print "@global_array\n";

close(LOG);
exit;