in reply to I try to write script which try to open a text file and read first line from it

With regard to the different natures of errors that may be generated, here's a hint:

When you do the following line in sub get_record, why do you think you die with Cannot open file: $!? What do you think $! is? Try searching for it in perldoc perlvar for more info!