#!/usr/bin/perl
$names++, shift if ARGV[0] eq "-l";
$search = shift;
$showname = @ARGV > 1;
...

##</code><code>##

$c = do { $a = 3, $b = 6 };   # a block, $c = 6