open(B, "<c:/path/to/hosts-base");
open(N, ">c:/path/to/hosts");
while (<B>) { print N; }
print N "default $ARGV[0]\n"; # add the 'default' entry