Select Code to Download

$refsub = \&subfoo;
$refsub->('la')->('dee')->('da');

#! /usr/bin/perl -w
...

        $sub_to_run->("lalala");
}