use strict; use warnings;
use Path::Tiny; # imports path()

my $file_in = "C:/Users/Joe/Documents/Genealogy/birdt.ged";

my $line_num = 0;
for my $line ( path( $file_in )->lines ) {
    print sprintf '%4d %s', ++$line_num, $line;
} 

__END__