Perl - Descargar Archivos

Como puedo hacer que CUALQUIER explorador pueda descargar CUALQUIER fichero.

He hecho la siguiente rutina, pero no funciona con todos los archivos, ni con los .gif, ni con los .pl que tengan codigo HTML.

sub Descarga
{
my ($nom) = @_;
my @fic;

open(HANDLE, $nom) || &Error ("Error: [$!]");
binmode (HANDLE);
@fic = <HANDLE>;
close (HANDLE);

binmode(STDOUT);
print $q->header(-type=>´application/octet-stream´,-attachment=>$nom),@fic;
exit;
}

NOTA:
El fichero no puede ser procesado, ya que el usuario que recoge el fichero no tiene ningun programa adicional.

GRACIAS.