open IP, $file or (print "\n\tNo kin d\n" , 
                     print "\n\tI bet ye dinna see this\n" , 
                     return 0  ) ;