#!/usr/bin/perl

package IPv4;

sub new {
        my @IP = split(/\./, $_[1]);
        bless ( { addr => \@IP }, $_[0] );
}

package main;

$test = IPv4->new("127.0.0.1");
print @{$test{addr}};