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