Lendo o tamanho de seus arquivos

 

#!/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"; # indico o tipo de documento (texto html)

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