use Getopt::Long;

GetOptions(
	'ip=s' => \my $ip,
);

print $ip;