Um simples código, lê o tamanho e informa para você.

#!/usr/bin/perl

$arquivo = “/home/USUARIO/www/download/flashtrial.zip”; # caminho p/ o arquivo a ser lido

$tamanho=(-s “$arquivo”); # este código que faz a leitura do tamanho

print “Content-type: text/html\n\n”; # indico o tipo de documento (texto html)

print qq~ o arquivo $arquivo tem $tamanho bytes ~; # imprimo o resultado