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