#!/usr/bin/perl -w

use strict;

my $outf = "/tmp/outf.p.out";

open OUTF, ">$outf" or die "ERROR: could not open file $outf - $!\n";

foreach my $i ( 1..1000 )
{
    foreach my $j ( 0..255 )
    {
        printf( OUTF "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", $j, $j );
        printf( OUTF "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", $j, $j );
        printf( OUTF "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", $j, $j );
        printf( OUTF "host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", $j, $j );
    }
}

close OUTF;

exit 0;

__DATA__

/*  C (somewhat?) equivalent of the perl script above  */
#include <stdio.h>

int main ()
{
    char *outf = "/tmp/outf.c.out";
    FILE *fd;
    int i,j;

    if ( !( fd = fopen( outf, "w" ) ) )
    {
        printf( "ERROR: could not open file %s\n", outf );
        exit(1);
    }

    for ( i=1;i<=1000;i++ )
    {
        for ( j=0;j<=255;j++ )
        {
            fprintf( fd, "   host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", j, j );
            fprintf( fd, "   host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", j, j );
            fprintf( fd, "   host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", j, j );
            fprintf( fd, "   host DAAA%02X { blah blah XX:XX:XX:%02X; }\n", j, j );
        }
    }

    fclose( fd );

    exit(0);
}