#!perl -l

open(my $fh, '<', $0);
print(substr(<$fh>, -2) eq "\r\n" ?'bin':'txt');  # txt

open(my $fh, '<', $0);
binmode($fh);
print(substr(<$fh>, -2) eq "\r\n" ?'bin':'txt');  # bin

open(my $fh, '<', $0);
binmode($fh, ':raw');
print(substr(<$fh>, -2) eq "\r\n" ?'bin':'txt');  # bin

open(my $fh, '<:raw', $0);
print(substr(<$fh>, -2) eq "\r\n" ?'bin':'txt');  # bin