sub errorHandling { my ($error) = @{{@_}}{qw/error}; print " Error You have the following error
$error
"; }