Select Code to Download

# Strip the mbox and id, assuming the file contains mbox:id
  my($mbox,$id)=split(',',$_);

use File::Slurp qw(read_dir);
...
use Data::Dumper;

use constant
{
...
    VOL          => '/home/folder/',     # TOP Level volume directory
    DEBUG        => 1,
};