$ pwd
/home/Keszler/x

$ ls -l
total 1
-rwxr-xr-x 1 Keszler None 155 Dec  8 19:35 test.pl

$ ls -l ..
total 1
-rw-r--r--  1 Keszler None 12 Dec  8 19:33 test.chr
drwxr-xr-x+ 1 Keszler None  0 Dec  8 19:35 x

$ cat test.pl
#!/usr/bin/perl
use strict;
use POSIX;
use warnings;
open (NEWFILE, "/home/Keszler/test.chr");
print "Start";
while(<NEWFILE>)
{
print $_;
}
print "end";

$ ./test.pl
Start1,2,3
a,b,c
end
$