#!/usr/common/bin/perl
$outname = "00000";
while(<>) {
    if (m/^From /) {
	$outname++;
	print "$outname\n";
	open(OUTPUT,">$outname");
    }
    print OUTPUT;
}