Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    no strict 'refs';
    print "$$i\n";
}

#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
print eval qq{"\$$i\\n"};