use warnings;
eval "use Data::Dumper;";
print Dumper "asdf";
Name "main::Dumper" used only once: possible typo at - line 3.
print() on unopened filehandle Dumper at - line 3.

##</code><code>##

use Durf;
print(ALPHA);

package Durf;
use constants ALPHA => 1;

1;