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

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

 }
close (FF);

##</code><code>##

   open(FF, "< /path/to/file.txt" );