Select Code to Download

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

    unless (checkdir $_) {

    if (-d $_) {

    if (-d) {

sub printhash {
    for (0...$#_) {
...
...

            printhash %curmsg;

            printhash %curmsg;

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

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