#!/usr/bin/perl

package IPv4;

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

sub print {
        print "@{@_[0]->{addr}}[0].@{@_[0]->{addr}}[1].@{@_[0]->{addr}}[2].@{@_[0]->{addr}}[3]";
}

package main;

$test = IPv4->new("127.0.0.1");
$test->print;