use strict;
use warnings;
use Tk;
my $etriped = 'e' .
                'x' .
                  'i' .
                    't';

print "1\n";
eval ("CORE::$etriped");
print "Error:  $@\n";
print "2\n"; # Reached if "use Tk;" is present.