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