#!/usr/bin/perl

use Carp;

eval { croak "With a newline\n" }; print $@;

eval { croak "No newline" }; print $@;