Select Code to Download

#!/usr/bin/perl
use strict;
...

say $testString;
say Data::Dumper::qquote($testString);