Select Code to Download

#!/usr/bin/perl --
use strict;
use warnings;
...
    return $ret;
} ## end sub red_dropdown_files

sub Main {
    Tests();
...
    ok( int $drops =~ m{\Q<option value="chapter-8.pdf">\E}, 'drops wo
+rks' );
} ## end sub test_drops