Select Code to Download

#!/usr/bin/perl -w

...
    print "This equates to ", sprintf("%02.4f", $size / ($duration)), 
+" kilobytes per second (1024 bytes per k)\n";
}

[le6303@itdevtst perl]$ perl xml.pl bigxml.xml
File bigxml.xml is 1730463 bytes
...
ok 2
ok 3
1..3