#!/usr/bin/perl$parser = "./parse_dump.pl";my $fn = $ARGV[0];shift @ARGV;if ($fn eq "") { die "must specify a file name\n"; }while (<>) {  if ($_ =~ /^StartOfDump/) { last; }}my $iter = 0;open(F0, ">$fn.$iter.dump") || die "$fn.$iter.dump: $!";while (<>) {  if ($_ =~ /^StartOfDump/) {     close F0;    system("$parser $fn.$iter < $fn.$iter.dump");    $iter++;    open(F0, ">$fn.$iter.dump") || die "$fn.$iter.dump: $!";  }  else {    print F0 "$_";  }}close F0;system("$parser $fn.$iter < $fn.$iter.dump");