#! /usr/bin/perl -w
use strict;

sub usage ()
{
    print <<EOF;
Usage: $0 directory mail-folder ...
EOF
    exit 0;
}

my $directory = shift or usage;
-d $directory or usage;

my $message = 0;
open MESSAGE, "> $directory/$message";
my $empty = 1;
while (<>)
{
    if (/^From /)
    {
	next if $empty;
	$message++;
	open MESSAGE, "> $directory/$message";
	$empty = 1;
    }
    else
    {
	print MESSAGE $_;
	$empty = 0;
    }
}
close MESSAGE;