open(my $io,"/tmp/file") ;
  read($io, my $buffer , 1024) ;