#!/usr/bin/perl -w

open (TEMPO, "+>c:\\winnt\\temp\\hash.tmp");
print (TEMPO "aba uba\niba seba\njak yuk\n");

############open  (TEMPO, "<c:\\winnt\\temp\\hash.tmp");   

seek TEMPO, 0, 0;

while (<TEMPO>)                                 
{
 print;
}