#!/usr/local/bin/perl

$user = $ARGV[0];
if ($user eq "") {
	print "usage: usage <username> \n";
	exit;
}

$where = "/var/log/infocom/acct/1997-*/*.acct /var/log/infocom/acct/*.acct";

open(GREP, "grep -w $user $where|") || die "couldn't run grep process: $!"; 

while (<GREP>) {
	($line) = unpack("A*", $_);
	print "$line\n";
}