#!/usr/bin/perl -w
#
use strict ;
#
sub toytown {
  my $file = 'xxrcblocktest.pl' ;
  my $msg = "Unable to open File $file :: $!\n" ;

  open INF, "<$file" or  print "\n\tmy message\n" ; 
                         print "\n\tActual error :: $!\n"  ;
                         return 0 ;
                        

  print "\n\tU shouldn't c this msg!!!!!!!\n" ;

  return 1 ;
}
#
my $script = "xxrcblocktest" ;
#
print "\n\t\t<***** Script $script S T A R T S\n" ;

&toytown or die "\n\tError :: $!\n" ;

print "\n\t\t<***** Script $script E N D S\n" ;