#
# Process the parameters
#------------------------#

$P_count = scalar @ARGV ;

if ($P_count == 1) {
   $file_in = $ARGV[0] ;
}
elsif  ($P_count == 2) {
         ($IP_in, $MAC_in) = @ARGV ;
}
elsif ($P_count == 3) {
         ($IP_in, $MAC_in, $Port_in) = @ARGV ;
}
else
{
   print "\n\tIncorrect number of parameters supplied - ($P_count)" ;
   print "\n\tThere MUST be between 1 & 3 parameters!\n" ;
   exit 123 ;
}