Select Code to Download

--Apple-Mail-16--694122637
Content-Transfer-Encoding: base64
...
Content-Disposition: attachment;
        filename=somefilename
(then the file is here)

#!/usr/bin/perl -w
use strict;
...
  }
}
$pop->Close();