列表 4. 一个简单的 Perl 脚本，用于生成 C 类 IP 地址

#! /usr/bin/perl

$networkid = "192.168.0";
$begin = 1;
$end = 20;

for ($hostid = $begin; $hostid <= $end; $hostid++) {
    print "$networkid.$hostid\n";
}