sub scan {

  $lb1->insert('end', "Scanning...");

  my $counter = '0';
  my $file = '/usr/ports/y.lis';
  my $outf = '/usr/ports/yyy.lis';
  open(ARGV,$file) or die $!;
  open(OUTF,">$outf") or die $!;

  BEGIN { $/ = "\n"; $\ = "\n"; }
  LINE: while (defined($_ = <ARGV>)) {
   chomp $_;
    use File::Glob ();
    foreach $_ (glob("$_/*")) {

   if (!/Makefile(.inc|)$/) {
   printf OUTF "$_\n"; }

   else {
    $counter++;
    }
}
   close(ARGV);
   close(OUTF);
   print "processed $counter records.";
   $lb1->insert('end', "Done.");
}
}