#!/usr/bin/perl

use strict;
use warnings;

use File::Basename;
use lib dirname(__FILE__);

use PackClass;

my $justPacket = new PackClass();


#my @theArray = $justPacket->getPack();
my @theArray = $justPacket->getPackAlternateImplementation();

print "Second value in array: " . $theArray[1] . "\n";

print "Have " . ($#theArray + 1) . " members in the list:\n" ;
foreach my $singleName (@theArray) {
    print __FILE__ . ":" . __LINE__ . ":\t" . $singleName . "\n";
}