sub fexist
{
    for (glob $_[0])
    {
        return 3 if -l;
        return 2 if -d;
        return 1 if -f;
    }

    return 0;
}

##</code><code>##

use v5.14;
...
sub cleanup
{
    for (glob $_[0])
    {
        cleanup_link($_) when -l;
        cleanup_dir ($_) when -d;
        cleanup_file($_) when -f;
    }
}