Select Code to Download

@ftypes  = qw(. p c ? d ? b ? - ? l ? s ? ? ?);
...
$perms    = $mode & 07777;
$filetype = $ftypes[($mode & 0170000)>>12];

#!/usr/bin/perl
#
...
link        = Y         
nlink       = 1