#!/usr/local/bin/perl
use strict;
use warnings;
use diagnostics;
use Net::IPv4Addr qw( :all );

my $var = "23.23.109.103";
print "$var\n";

#if ($var =~ m/^\d+$/) {
#if ($var !~ /\D/) {
if ( $var = ipv4check_ip($var)) {
        print "your variable is a number $var\n";
} else {
        print "number $var is not a number\n";
}