Select Code to Download

#!perl
use strict;
...
my $adjective = 'not interpolated';

print eval "qq{$text}";

use strict;
use warnings;
...
$lines=~s/^\s*(?!$)//gm;

print $lines

 #!/usr/bin/perl -w
use REST::Client;
...
}

...

}