Help for this page

Select Code to Download

Select or download this

use IO::Handle;

...
else {
  die("Unable to open file: $!\n");
}