use strict;

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

open(F,$0);
my $N;

map {
  print "TRACE $_";
  my @a = (1);
  $N = @a[1..0]; 
  #1;
} <F>;
close(F);

print "\nN = /$N/\n";

#WATCH FOR THIS LINE!