Sample code for 30+ languages & platforms
Perl

Measure Elapsed Time with the Convenience Timer

See more Socket/SSL/TLS Examples

Demonstrates Socket.StartTiming, which starts or restarts the object's convenience timer. The ElapsedSeconds property then reports the whole number of seconds since the call.

Background. This timer is a convenience for measuring durations and does not affect connection behavior or timeouts.

Chilkat Perl Downloads

Perl
use chilkat();

$socket = chilkat::CkSocket->new();

#  Start (or restart) the object's convenience timer.
$socket->StartTiming();

#  Perform some work.  (Here the thread simply sleeps to let time pass.)
$socket->SleepMs(1500);

#  Read the whole number of seconds elapsed since StartTiming was called.
print "Elapsed seconds: " . $socket->get_ElapsedSeconds() . "\r\n";