#!/usr/bin/perl

$val{"comment"} = "That''s_all,_folks!";
while ( <STDIN> ) {
  if($_ =~ /.*majorcount\s+(\d+).*/)  {
      $val{"majorcount"} = $1;
  }
  if($_ =~ /.*tick\s+(\d+).*/)  {
      $val{"tick"} = $1;
  }
}
foreach $key (sort keys %val) {
    print "$key=$val{$key}\n";
}
