1#!/bin/perl -w
2
3$seq = 1;
4$file = "";
5$file = sprintf("tmp/%02d.m4", $seq);
6open(FILE, ">$file") || die "cannot open \"$file\": $!";
7printf(STDOUT "FILE: $file\n");
8while (<>) {
9    if (/^$/) {
10	close(FILE);
11	$seq++;
12	$file = sprintf("tmp/%02d.m4", $seq);
13	open(FILE, ">$file") || die "cannot open \"$file\": $!";
14	printf(STDOUT "FILE: $file\n");
15	next;
16    }
17    printf FILE;
18}
19close(FILE);
20