Help for this page
# Process header for (split /^/, $header) { ... { $body = decode_qp($body); }
#!/usr/bin/perl use Modern::Perl; ... # Close POP connection $pop->Close();