Select Code to Download

my $SERVER = 'mail.domain.com';

...
    return 1;
   }
}

sub open {
    my($self, $hdrs) = @_;
...
    # return self (a FileHandle) ready to accept the body
    $self;
}