push @tapefilesizes, [ $1, $currenttapefilename ];
$totalrecords += $1;
pboth("total blocks written so far: $totalrecords\n");
push @tapefilesizes, [ $1, $currenttapefilename ];
$totalrecords += $1;
pboth("total blocks written so far: $totalrecords\n");