use Fcntl qw(O_RDWR O_CREAT);
sysopen TEMPO,"c:\\winnt\\temp\\hash.tmp",O_RDWR|O_CREAT or die "$!";
syswrite TEMPO,"aba uba\nniba seba\njak yuk\n";
while (sysread TEMPO, $_, 4096){
    print;
}