#!/usr/bin/perl

use strict;
use warnings;
use IO::File;
use Carp;
use Data::Dumper;

my $fh = IO::File->new;
eval{$fh->open("asdf", "r") || croak $!};

print Dumper $!, $@;