All pastes #2133440 Raw Edit

Untitled

public text v1 · immutable
#2133440 ·published 2012-03-28 22:54 UTC
rendered paste body
#!/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}};