Select Code to Download

sub to_json {
    my ($ref) = @_;
...
        return "\"$ref\"";
    }
}

print to_json({ this => 'that', other => 'whatever' });