#! /usr/bin/perl
# perltest Demo of problem
# Usage:
# perltest
# perltest 1
# perltest 1 2

$ARG1 = shift();
$ARG2 = shift();

open(F,$0);
$c = 0;
map {
  print "TRACE $_";
  $c++;
  my @a = (1);
  my @b = @a[1..0];
  if    ( $ARG1 and $ARG2 ) { $N = @a[1..0]; }
  elsif ( $ARG1           ) { $N = @b;       }
} <F>;
close(F);

print "\nCOUNT = $c N = /$N/\n";
exit 0;

#WATCH FOR THIS LINE!