use autodie qw(:all);

    .
    .
    .

    for my $i (1 .. $pop->Count) {
        open my $fh, '>:raw', "msg-$i.msg";
        $pop->HeadAndBodyToFile($fh, $i);
        close $fh;
    }