Select Code to Download

use JSON::XS;
my $data = [qw( qweqwe rtyr tyr \'asdasd fghfghfgh)];
my $json = encode_json $data; 
# to file...

#!/usr/bin/env perl

...
qweqwe rtyr tyr \'asdasd fghfghfgh

...