use Data::Dumper;

my $ip      = join '.', map hex, (sprintf("%x", 3232235776) =~ /\w{2}/g);
my $mask    = join '.', map hex, (sprintf("%x", 4294967040) =~ /\w{2}/g);

print Dumper [$ip, $mask]