Help for this page
#!/usr/bin/perl use warnings; ... sub getdelta { @deltaxy = ( $top->pointerx - $top->x, $top->pointery - $top->y ); }
#!/usr/bin/perl use warnings; ... }