Select Code to Download

use strict;
use warnings;
...
                  when($foo eq 'foo' and $bar eq 'bar'){print "both ar
+e standard\n";}

        }