Select Code to Download

perl -MO=Deparse -p code.pl

...
    die "-p destination: $!\n" unless print $_;
}

#               v    v
my ($s, $t) = (((2*aa)+bb), (2*$a+$b));