#!/usr/bin/perl -w 

if ($ARGV[0]) {
	$arg = $ARGV[0];
	$arg =~ tr/a-z/A-Z/;
	$result = `finger quake\@gldfs.cr.usgs.gov | grep "$arg"`;
	print $result if $result ne undef;
	} else {
	$result = `finger quake\@gldfs.cr.usgs.gov | tail -27`;
	print $result if $result ne undef;
}