Select Code to Download

#!/usr/bin/perl -l

...
my $obj = bless { permutation => [2,42,2,2,2,2,2,2,2,2,2] }, "Whatever
+";

print get($obj, 1);   # prints 42