#!/usr/bin/perl

use warnings;
use strict;
use File::Copy;
use Getopt::Long;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

# TEST --> Print the Args so we can see that they are being passed:
print "\@ARGV: \"@ARGV\"\n\n";

my $srv_address;
my $ip_address;

if ( @ARGV > 0 ) {
	print "GETTING OPTIONS...\n\n";

	GetOptions('ipAddr=s' => \$ip_address,
		   'server=s' => \$srv_address
	);
}

print BOLD "    IP Address = " . RESET "$ip_address\n";
print BOLD "SERVER Address = " . RESET "$srv_address\n";

exit 0;