1#!perl -w
2
3use strict;
4use RecReader;
5
6my $game = shift;
7my $reader = new RecReader("$game", \&processEvent);
8print $reader->raw_summary if defined $reader;
9
10sub processEvent {
11	my $frame = shift;
12	my $event = shift;
13	my $params = shift;
14	printf "%08x $event ", $frame;
15	print join " ", %$params;
16	print "\n";
17}
18