Select Code to Download

package mymod;
use warnings;
...
print "The cursor is at: $pt->{x}, $pt->{y}\n";

1;

D:\pscrpt>perl mymod.pm
The cursor is at: 584, 1017

D:\pscrpt>perl mymod.pm
The cursor is at: 213, 542

use warnings;
use mymod;

D:\pscrpt>perl test.pl
Win32::API::parse_prototype: WARNING unknown output parameter type 'BO
+OL' at D:/
...
Use of uninitialized value in concatenation (.) or string at mymod.pm 
+line 21.
The cursor is at: ,