#!/usr/bin/perl

use Carp;

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

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

##</code><code>##

With a newline
        eval {...} called at croak.pl line 5
No newline at croak.pl line 7
        eval {...} called at croak.pl line 7