#!/usr/bin/perl

use strict;
use warnings;

main();
exit;

###############################################

sub main {

    my $ip = qq{127.0.0.1};
    print "IP Validity Status:". validate_ip_addr($ip),$/;
}

sub validate_ip_addr {

    my ($addr_to_check) = shift;
    return ( $addr_to_check =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ );
}

##</code><code>##

IP Validity Status:1

##</code><code>##

IP Validity Status:

##</code><code>##

IP Validity Status:0