Select Code to Download

  DB<17> sub test { print do { 5+4 } }

...
        9
    });
}

{
    use warnings;
...
    }
    $total;
}

  DB<27> print $]
5.024001