use Data::Dumper;

my $ip      = join '.', unpack "C*", pack "N", 3232235776;
my $mask    = join '.', unpack "C*", pack "N", 4294967040;

print Dumper [$ip, $mask]