Select Code to Download

perl -e '
{package test; sub test {return "test"}}; 
$a=[];
bless $a, test;  
print "@{[$a->test]}"
'