#
# TODO: Like $!, $^E is a dualvar, a scalar that contains two values. One's a string, and one's a number.
# (http://stackoverflow.com/a/24757708/180275)
#
use warnings;
use strict;
my $file_name = "an inexisting file!";
my $file_handle;
unless (open ($file_handle, "<", $file_name)) {
print "\n";
print " could not open $file_name\n";
print " The operating system sasy: $^E\n";
print " Compare with \$!: $!\n";
print "\n";
}