Select Code to Download

if(-T $file) {
...
} else {
    print "Not an ascii text file \n";
}

    my $ft           = File::Type->new();
...
    } else {
        do that..
    }