#!/lusr/bin/perl

use warnings;
use strict;

my $file = "test_file.pl";

print "File is reqadable\n" if -r $file;
print "File is writable\n" if -w $file;
print "File is executable\n" if -x $file;
print "File is a regular file\n" if -f $file;
print "File is directory\n" if -d $file;
print "File is a text file\n" if -T $file;