Obsah otvoreneho suboru sa nevypise

[Pavel Kosarnik]

Dobry den,

nepouzivam perl aktivne. Mam vsak jednu app(addns.pl pre dyndns klienta), 
ktora by mala byt s tymto kodom trivialne funkcna:

sub get_host_cache
{
        open(CACHE, $files{'cache'}) or output("warning: could not open cache 
file!",1,2);
        my @lines = <CACHE>;
        print @lines;
        close(CACHE);
...
}
kde $files{'cache'}=/home/user/addns.db

Vysledkom nie je ziadny vystup.
Ak vsak napisem len toto a spustim, vypise sa mi obsah pozadovaneho suboru:

open(CACHE,'addns.db');
my @line=<CACHE>;
print @line;

Je mozno nejaka zavislost na nejakom importovanom module, ale nedopatral som 
sa nicoho.
Tieto moduly su pouzite:
use IO::Socket;
use Sys::Hostname;
use integer;
use English;
use strict;

Co som nasiel je velmi priamociare a samozrejme funkcne:
http://www.cs.mcgill.ca/~abatko/computers/programming/perl/howto/open/
http://perl.about.com/cs/beginningperl/a/021203.htm
http://www.pageresource.com/cgirec/ptut14.htm
a rad dalsich

Kde by som mal hladat problem?
-- 
Kosarnik