my $written = print $loc $buf;
   unless($written)