$function = <STDIN>;
        chop $function;

        if ($function eq 1)