#!/bin/perl
# Run uulog -$1 for each neighbor, with a default of 5 lines.

$ARGV[0] = 5 if ( $#ARGV < 0 );
$| = 1;

for $f (`uuname`) {
	chop $f;
	print "$f: \n";
	system "uulog -$ARGV[0] $f";
}