$ pwd
/home/ken/tmp

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' /usr/bin/perl
binary

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' file_perl
text

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' ./file_perl
text

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' ~/tmp/file_perl
text

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' ~ken/tmp/file_perl
text

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' ../tmp/file_perl
text

$ perl -E 'say +(qw{binary text})[-T $ARGV[0]]' ../../../usr/bin/perl
binary

##</code><code>##

$ pwd
/home/ken/tmp

$ ls -l file_perl
-rw-r--r-- 1 ken None 105 Aug 13 23:46 file_perl

$ file file_perl
file_perl: ASCII text

$ cat file_perl
/usr/bin/perl: PE32+ executable (console) x86-64 (stripped to external PDB), for MS Windows, 11 sections