Я правильно реализовал сбрасывание флага TOSTOP на перле???

Я правильно ето реализовал на перле ???

            if(isatty(1)){                                                                                                                   
                $termios->getattr( 1 );                                                                                                      
                $c_lflag = $termios->getlflag;                                                                                               
                $termios->setlflag( $c_lflag & ~(&POSIX::TOSTOP) );                                                                          
                $termios->setattr( 1, &POSIX::TCSANOW );                                                                                     
            }