Select Code to Download

#!/usr/bin/perl
use strict;
print keys %aa,", $bb, @cc\n";
BEGIN {use vars qw(%aa $bb @cc); %aa=(1,11); $bb=22; @cc=(3,33); }