note demerphq Ah. I should have read your code closer. Apologies.<p> Nice trick, but I need this to work for any arbitrary classname. This is for a new Data::Dumper module. Er, for that matter Data::Dumper has the same problem: <code> use Data::Dumper; my $x=bless qr/dedum/,'foo'; print Dumper($x); __END__ $VAR1 = bless( do{\(my $o = undef)}, 'foo' ); </code> <P> Yves / DeMerphq<br> --- <BR> Writing a good benchmark isnt as easy as it might look. 8259 162419