Select Code to Download

#!/usr/bin/perl
# test.pl
...
use Data::Dumper;

my @foo = ('a', 'b', 'c');

> test.pl
$VAR1 = 'a';
$VAR2 = 'b';
$VAR3 = 'c';