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