+my @parsed;
+my %cpu;
+my $start_time = 0;
+
+if (!defined($ARGV[0])) {
+ print "No log file specified\n";
+ exit
+}
+
+open(INFILE, $ARGV[0]);
+while ($line = <INFILE>) {
+ if ($line =~ m/^(.*)\((.*):(\d+):(.*)\(\)\)/) {
+ @parsed = split(":", $1);
+ if (substr ($parsed[2], -1, 1) eq "F") {
+ chop $parsed[2];
+ $cpu{$parsed[2]} = 0;
+ } else {
+ if (!defined($cpu{$parsed[2]})) {
+ $cpu{$parsed[2]} = $parsed[3];
+ }
+ }
+ }
+}
+
+foreach $time (values %cpu) {
+ if ($start_time < $time) {
+ $start_time = $time;
+ }
+}
+
+print "Starting analysis since $start_time\n";
+
+seek(INFILE, 0, 0);
+while ($line = <INFILE>) {