Help for this page

Select Code to Download

Select or download this

use Win32::API 0.40;

...
my $retval = GetCursorPos($point);

print "Cursor is at $point->{x}, $point->{y}\n";

Select or download this

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;