Select Code to Download

#!/usr/bin/perl
*alias0 = *_;
*alias1 = \$_;
...
    *_ = *x;
    print " : ( $_ $alias0 $alias1 )\n";
}

do: ( 999 999 Sample )
A : ( % A Sample )
% : ( % B Sample )
% : ( % C Sample )
% : ( % D Sample )