> cat test.pl
#!/usr/bin/perl

my @command = @ARGV;

use TEST_PACKAGE qw(%TEST_HASH);

my $command_string;
for (my $i = 0; $i < scalar(@command); $i++ ) {
        # Interpret each word in the command string and substitute known variables
        $command_string = $command_string . " " . ( sprintf "%s", $command[$i] );
}

print "\nExecuting command: $command_string\n";
system "$command_string";