use Tk;
my $etriped = 'e'.
                  'x'.
                       'i'.
                            't';
print "1\n";
eval ("$etriped");
print "2\n"; # Reached if "use Tk;" is present.