Select Code to Download

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

P:\test>junk
0.39:1.381: 0.991
...
1.792:3.945: 2.153
main::(junk.pl8:14):    print "config read\n";
  DB<2>