Select Code to Download

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

#!/usr/bin/perl
use warnings;
...
}