Select Code to Download

sub func {
    my ($delimiter, $text) = @_;
...

use Data::Dumper;
print Dumper(func());