Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper $foo, \@array;
print Dumper \%hash;
print Dumper $bar;

$VAR1 = 'test';
$VAR2 = [
...
                    }
        };
$VAR1 = undef;