#!/perl/bin/perl -w
# IEL - Interface Engine Lite
# IELmqsvr - Interface MQ Series Server script
#              - This script establishes a tcp/ip socket with the receiving system and interagates
#                the MQ Series Queue for transactions to send.  
#              - Creation Date - 8/30/05
#              - Modification Log -
# 

# This section declares system Modules and Variables
require 5.002;
use IO::Select;
use Env;
use IO::Handle;
use strict;
use Errno qw(EAGAIN);
use IO::Socket;
use sigtrap;


my ($INAME);
$INAME = $ARGV[0];
print STDOUT "ARGV = @ARGV - 0 = $ARGV[0]\n";
exit;


##</code><code>##

C:\IEL\bin>ARGVtst.pl LHW_TST
Use of uninitialized value in concatenation (.) or string at C:\IEL\bin\ARGVtst.
pl line 23.
ARGV =  - 0 =

C:\IEL\bin>