my $start = times;
my $config = XMLin($data);
my $stop = times;
print "$start:$stop: ",$stop - $start;
print "config read\n";

##</code><code>##

P:\test>junk
0.39:1.381: 0.991
config read


P:\test>perl -d junk.pl8

Loading DB routines from perl5db.pl version 1.19
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(junk.pl8:5):     my $data;
main::(junk.pl8:6):     {
  DB<1> c 14
1.792:3.945: 2.153
main::(junk.pl8:14):    print "config read\n";
  DB<2>