@ftypes  = qw(. p c ? d ? b ? - ? l ? s ? ? ?);

($dev,$inode,$mode,$nlink,$uid,$gid,$rdev,$size,
 $atime,$mtime,$ctime,$blksize,$blocks) = stat($source_file);

$perms    = $mode & 07777;
$filetype = $ftypes[($mode & 0170000)>>12];