Select Code to Download

my $record_end = qq{\$\$\$\$\n};
while (<DATA>) {
...
example 4
END
$$$$

example 1
example 2
...
END
--CSV stuff--
$$$$