Shell Programming and Scripting

#!/usr/local/bin/perl

use strict;
use warnings;

 my @x;
 my $input='create2.txt';

open(IN,$input) or die "Error: $!\n";
 my @data=<IN>;
close(IN);

 foreach (@data) {
  push @x, $_;
 }

pop(@x);
print @x;

$ cat count.pl 
#!/usr/bin/perl
use strict;
use warnings;
 
while (<>) {}
continue
{ 
  if (eof)
  {
    print "$. $ARGV\n";
    close ARGV;
  }
}
 
$ 
$ 
$ ./count.pl *.txt
16 a.txt
16 b.txt
$

$ ./count.pl *e*