#!/../../perl -w

open(FF, "< /dev/mouse") || die "cannot open handle \n";
while (<FF>)  {
	$vr = $_;
	print $vr;

 }
close (FF);