if ($val eq ""){ &error; } sub error{ print < Error An error occurred ErrHtml exit; #exit so the script stops here }