Select Code to Download

# Process header
for (split /^/, $header)
{
...
{
  $body = decode_qp($body);
}

#!/usr/bin/perl

use Modern::Perl;
...

# Close POP connection
$pop->Close();