Select Code to Download

#! perl
use strict;
...
    my $ref = eval "\\\@$var";
    print join(', ', @$ref), "\n";
}

Wallace, Gromit