Es dürfte nicht besonders schwer sein, sich einen PerlIO::via Layer zu basteln, der die Größe der transferierten Daten mitzählt und Methoden zum Abfragen des durchschnittlichen Datendurchsatzes bereitstellt.