Help for this page

Select Code to Download

Select or download this

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

...
print "Pipe\n" if (-p $filename);
print "Sockete\n" if (-S $filename);
...