print "Opening the file\n";					open(F,"<$pair1[1]");
print "changing the mode to bin\n";
binmode F;
#binmode $new_sock;
my $bufsize = 100;
my $buffer=0;
my $n = sysread(F,$buffer,$bufsize);
print "the value of n is $n\n";				close(F);