#!/usr/bin/perl -w
#
sub fred {
   use strict ;
#
   my $file = 'xxrcdisnaeexist' ;
   my $TV   = 0 ;
#
   open IP, $file or (print "\n\tNo kin d\n" , 
                   print "\n\tI bet ye dinna see this\n" , 
                   return 0  ) ;
#
   if ($TV) {
      print "\n\tIt's Twoo It's Twoo\n" ;
   }
#
}
$fred or die "\n\tThis failed min!!!\n" ;

##</code><code>##

$ xxrcor.pl
Name "main::IP" used only once: possible typo at xxrcor.pl line 9.
 
        This failed min!!!
$