Select Code to Download

#!/usr/bin/env perl

...
        };
    };
__DATA__

"46004","Tamerlane","Tamerlane","Sheridan"
"46004","Tamerlane","Bajazet","Barry"
...
"46005","Hamlet","Laertes","Lacy"
"46005","Hamlet","Ophelia","Mrs. Storer"
"46005","Hamlet","Queen","Mrs. Furnival"

#!/usr/bin/env perl

...
        };
    };
$dbh->disconnect;