Select Code to Download

for my $id (@selected) {
    $list{$id}{selected} = 1;
...
    print ' class="selected"' if $list{$key}{selected};
    print ">$list{$key}\n";
}

#!/usr/bin/perl
# Script part 1.
...
    eval $code;
    print "Wow: $Overwritten{selected}\n";
}

# Script part 2.
{   package StringRef;
...

tie my %list, 'StringRefHash';
eval $code;

# Script part 3.
{   my %list;
    eval "$code;1" or die $@;
}