#!/usr/bin/perl

# crash2ID.pl

$id = "";
while(<>) {
  chomp;
  if(/running on (.*)/) {
    $id = $1;
  }
}
if ( $id =~ /(.*)0&scan=1/) {
  $id = $1;
}
print "firefox ", $id,"1 ", ">clog.txt";



