Select Code to Download

    my @entries = split "", $record;
    if ($record[0] eq 'FRAG') {
...
            or die "Malformed file entry: '$record[8]'";
        warn "Basename is '$1'";
    };