sub fred {
    if ($_[0] == 'ooyah') {
        return 1;
    } else {
        return 0;
    }
}