my $filename = "/path/to/file";

print "Regular file\n" if (-f $filename);
print "Directory\n" if (-d $filename);
print "Symlink\n" if (-l $filename);
print "Pipe\n" if (-p $filename);
print "Sockete\n" if (-S $filename);
...