#!/afs/athena/contrib/perl/p

print "This doesn't work yet.\n";

@answer = (unpack("c4", pack("N", "\001\002\003\004")));

grep(&print_val($_), @answer);

sub print_val {
    $x = @_;
    print ( "Val: " . $x . "\n");
}