#!/usr/bin/perl
use v5.12;
use warnings;
my $fn='/etc/passwd';
open my $handle,'<',$fn or die "opening $fn failed: $!";
if (-T $handle) {
    say "$fn looks like text";
} else {
    say "$fn does not look like text";
}
close $handle;