Make a random IP address in Perl

This Perl script makes reasonably convincing random IPv4 internet addresses.

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
sub randomip
{
    my @digits;
    for (0..3) {
        push @digits, int (rand (255) + 1);
    }
    return join '.', @digits;
}
for (0..9) {
    print randomip (), "\n";
}

(download)

The output looks like this:

65.98.8.49
241.203.35.155
141.143.186.15
32.245.223.98
230.54.104.186
198.100.2.68
194.221.211.187
251.126.206.223
6.212.82.2
162.193.5.177