#!/bin/perl
# Script hostscomm.pl
# Pull out all comment lines in /etc/hosts, and put them in 
# another file called hosts.comments
open (HOSTS, "</etc/hosts");
open (Comms, ">hosts.comments");
while ($line = <HOSTS>) {
	if ($line =~ /^#/) {
		print Comms $line;
}
}
close HOSTS;
close Comms;