Miscellany

open TMP, ">$file" || print "Can't open temp file: $!";
my $top = 5;
my $cont = 0;
foreach $line (@cpanel) {
	my $dont = 0;
	if ($top > 0) {
		if ($line =~ /:/i) {
			$dont = 1;
		}
		$top--;
	}
        $dont = 0;
	unless ($dont) { print TMP $line; }
}
sleep 30;
close TMP;