#!/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;