our @not = (2 , mkdir 'reply');
our $_= not (2==$reason) if $y;
our $but=2, do{} or die
                  "--Tennyson";