[Perl] obtener numero de segundos

[miguel gmail]

Hola,

acabo de empezar a usar perl, y me ha tocado hacerlo bajo windows. Lo
que me han pedido hacer es comprobar la velocidad de transferencia FTP
entre algunos puestos locales y servidores, que pueden ser solaris,
aix, windows (nt y 2k) y un debian.

El FTP lo tengo hecho, pero no se como obtener el numero de segundos
que toma la transferencia. Estoy haciendo algo como:

$fecha_inicio = (localtime);

<<conexion, transferencia y cierre de ftp>>

$fecha_fin = (localtime);

y asi puedo ver a ´ojímetro´ cuanto tarda en transferir el fichero.
Pero no puedo automatizar el proceso para que me devuelva una tasa de
transferencia, para lo que necesito el número de segundos
transcurridos entre el inicio y el fin de la transferencia.

Alguna idea?

Muchas gracias por anticipado.
-- 
Saludos,
miguel