Slight typo, should be $! instead of $1 (<shift> key):

or die("Unable to create \"$fname\": $!\n");
[download]