Shell Programming and Scripting

#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};

print "IP: $ip\n\nResult (hash): \n".Dumper($r);

[#####01] ./stun_check.pl

IP: 216.111.11.123

Result (hash): 
$VAR1 = {
          'ma_port' => 38822,
          'message_type' => 257,
          'message_length' => 48,
          'attr_type' => 1,
          'attr_length' => 8,
          'ma_family' => '1',
          'transaction_id' => 'C1Eblah13384',
          'ma_dummy' => '0',
          'ma_address' => '216.111.11.123'
        };

[#####01]

#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "IP: $ip\n\nResult (hash): \n".Dumper($r) if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);

#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "0:$ip\n" if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);

# Split the IP address into an array of octets
@x = split /\./, $ip;
 
# Print it unless it is invalid
print "0:$ip", "\n" unless ($#x != 3 or grep {$_ =~ /\D/ or $_ < 0 or $_ > 255} @x);

Can't use string ("") as a HASH ref while "strict refs" in use at ./stun_check.pl line 11.