The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Net::Server::Mail::ESMTP::SIZE;

use strict;

use base qw(Net::Server::Mail::ESMTP::Extension);

sub init {
    my ( $self, $parent ) = @_;
    $self->{parent} = $parent;
    return $self;
}

sub keyword {
    return 'SIZE';
}

sub parameter {
    my $self = shift;
    return "1000";
}

1;