#!/usr/bin/perl
$Port="/dev/ttyS0";
$Filename="tek.bmp";
open(OUTFILE,">$Filename");
open(SCOPE,"<$Port");
system("/bin/stty 9600 -echo -parenb raw < $Port");
select SCOPE;
$|=1;
select OUTFILE;
$i = 0;
while($i < 9662) {
	if(port_has_data())
	{
		$i++;
		sysread(SCOPE, $mychar, 1);
		print OUTFILE ($mychar);
	}
#	select(undef, undef, undef, 0.05); 	# 1/20 second sleep
}
close SCOPE;
close OUTFILE;

sub port_has_data {
	my($rin,$nfd);
	vec($rin,fileno(SCOPE),1) = 1;
	return $nfd = select($rin,undef,undef,0);
	}