##
open INF, "<$file" or do{ print "\n\tmy message\n",
"\n\tActual error :: $!\n" ;
return 0 ;
}
##
##
open INF, "<$file" or (print("\n\tmy message\n", "\n\tActual error :: $!\n"), return 0)