use strict;
my $buffer;
my $bytesread;