Select Code to Download

#!/usr/bin/env perl
use warnings;
...
Bar
Quz
Baz

("TIEHANDLE", *main::DATA)
"READLINE"
...
Baz
"CLOSE"
"DESTROY"