#!/usr/bin/perl -l
use strict;
use warnings;


package Error;

sub Trace {
    print "Error::Trace called!";
}

1;


package main;

eval { Error::Trace(); };
# wenn Error::Trace() nicht definiert ist, kann man @! auswerten!
print "eval fetched: $@" if $@;


eval { Error::NotExistent(); };
print "eval fetched: $@" if $@;

__END__