use warnings;
use strict;
my $directory = '/home/psimo/it441/challenge/logs';                           
                     
print "Please enter the file name: ";
my $theFile = <STDIN>;
chomp ($theFile);

my $path = "$directory/$theFile";
if( ! -f $path ) {
    print "$path isn't a file.\n";
}
else {
    print "$path is a file.\n";
}

if( -T $path ) {
    print "$path is a text file.\n";
}
else {
    print "$path is not a text file.\n";
}