Help for this page

Select Code to Download


  1. or download this
    use Fcntl ':mode';

...
        . o($mode, S_IXOTH, S_ISVTX)
}
  2. or download this
    #!/usr/bin/perl -l
sub i{'-'}
...
,$m&2?w:i
,o(1,512)
," $_"for@ARGV;
  3. or download this
    #!/usr/bin/perl -l
for$f(@ARGV){
...
y/\0/-/;
print qw(? c d b - l s)[$m>>13],"$_ $f"
}