sub click($x, $y) {
    if($x != $lastx || $y != $lasty) {
        MoveMouseAbs($x, $y, 0);
        #sleep(0.5);
        $lastx = $x;
        $lasty = $y;
    } else {
        my ($mx, $my) = GetMousePos();
        my $dist = abs($mx - $x) + abs($my - $y);
        if($dist > 10) {
            croak("USER ABORT!");
        }
    }

    ClickMouseButton(M_LEFT);

    return;
}