send send 'smtp.host.com', \%headers, $body;

get get 'pop3.host.com', $user, $password, sub { my ( $headers, $body, $num, $pop ) = @_; say $headers->get('Subject'); say $body->get(0); $pop->delete($num); };