Help for this page

Select Code to Download


  1. or download this
    # Comes right out of the Switch.pm synopsis
    switch ($val) {
    ...
        sub($i)         && do { print "arg to subroutine"; last };
        print "previous case not true";
    }