Thanks for the info. Your example is great. I've tried it on occasion, but it always comes back to haunt me, so I don't fiddle around unless it's absolutely necessary:). There are times when I can see using line numbers. For example, when I'm editing a post and the line number would be helpful like this, looking at a charblock:

#!/usr/bin/perl 

use strict;
use warnings;
use PerlIO::via::LineNumber;

my $post = '/root/Desktop/myLines.log';

die unless open my $out, '>via(LineNumber)', $post;
print $out <<'EOD';
{
  bidi => "L",
  block => "Basic Latin",
  category => "Lu",
  code => "0041",
  combining => 0,
  comment => "",
  decimal => "",
  decomposition => "",
  digit => "",
  lower => "0061",
  mirrored => "N",
  name => "LATIN CAPITAL LETTER A",
  numeric => "",
  script => "Latin",
  title => "",
  unicode10 => ""
   upper => ""
}
EOD

print $out;
close $out;
[download]

With line numbers:

   1 {
   2   bidi => "L",
   3   block => "Basic Latin",
   4   category => "Lu",
   5   code => "0041",
   6   combining => 0,
   7   comment => "",
   8   decimal => "",
   9   decomposition => "",
  10   digit => "",
  11   lower => "0061",
  12   mirrored => "N",
  13   name => "LATIN CAPITAL LETTER A",
  14   numeric => "",
  15   script => "Latin",
  16   title => "",
  17   unicode10 => ""
  18   upper => ""
  19 }
[download]