Select Code to Download

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

system $^X, 'yada';
path( 'yada' )->remove;

$ perl -
use Data::Dump qw/ dd /;
...
asdf^Z
"asdf\32\n"
^Z