#!/usr/bin/perl
# hstat hosts...
#
# This shows the files and last 33 lines of  the  hst  file
# for each of the listed hosts.  We strip off any directory
# info from the start of each name, as an  aid  in  cutting
# and pasting.

for $h (@ARGV) {
	print '=' x 50 . " $h:\n";
	$h =~ s".*/"";
	$h =~ s"-+$"";
	system "ls -Lltrid */$h* ; tail -24 hst/$h";
}