Select Code to Download

use warnings;
use strict;
...
    my $x = shift;
    return $x ** 2;
}

main::foo
args:
...
        ];
return:
$VAR1 = 100;