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:

242.3.51.45
25.191.40.76
202.191.44.64
156.232.156.118
207.170.124.26
41.146.11.235
160.151.133.185
30.175.48.60
146.63.108.123
11.15.184.119