my $read;
	my $sysread;
	#Reading the response
	print "reading...\n";

	while ( read(PORT,$read,2048) ) 
		{ 
			print "using read:\n";
			print $read; 
		}
	
	while (sysread(PORT, $sysread, 10000))
		{
			print "using sysread:\n";
			print $sysread;
		}