sub checkdir {
    (-e $_[0] and -d $_[0]) or return 1;
    return 0;
}
...
    unless (checkdir $_) {

##</code><code>##

    unless (checkdir $_) {

##</code><code>##

    if (-d $_) {

##</code><code>##

    if (-d) {

##</code><code>##

sub printhash {
    for (0...$#_) {
    if ($_ % 2) {
        print $_[$_] . "\n";
    } else {
        print $_[$_] . ": ";
    }
    }
}

...

            printhash %curmsg;

##</code><code>##

            printhash %curmsg;

##</code><code>##

            print "$_: $curmsg{$_}\n" for keys %curmsg;

##</code><code>##

    while ($curline = <FH>) {
	if ($curline =~ /^Subject: /) {

...

	} else {
	    next;
	}
    }