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