my $filename = shift;
    return 'link'  if (-l $filename);
    return 'file'  if (-f _);
    return 'dir'   if (-d _);