<div dir="ltr">Try to run the following on both machines:<br><br>#!/usr/bin/perl <br>use Time::HiRes;<br>($seconds, $microseconds) = Time::HiRes::gettimeofday;<br>print "Start: $seconds.$microseconds\n";<br><br>use DB;<br>
<br>($seconds, $microseconds) = Time::HiRes::gettimeofday;<br>print "loaded DB: $seconds.$microseconds\n";<br><br><br>Besides "use DB" stick couple more libraries and print the timestamp after each one.<br>
<br>Test write speed of disks:<br>time (dd if=/dev/zero of=/tmp/abc bs=1M count=500 && sync)<br><br>One of the things the "use DB" does it to load several bytes of entropy from /dev/random. If the newer machine has much activity, the /dev/random will not block. Idle machine might require some time to gather entropy. Test the entropy as follows:<br>
time dd if=/dev/random of=/dev/null bs=100000 count=1<br><br clear="all">--<br>Arie<br><br></div>