$error = $! if $!; print $error;