Select Code to Download

use strict;
use warnings;
...
        print $entry, "\n";
    }
}

use strict;
use warnings;
...
    }
    return;
}