send data to mouse/keyboard in perl?

[sebastiannielsen]

I need 3 subs:

first:
MouseClick(var1, var2)
the var1 should contain 1 for left and 2 for right
var2 should contain 1 for one click, 2 for hold down button and 3 for relase.

The MouseClick should send mouse events to the computer perl is running on.

second:
SpecialKbd(var1, var2)
var1 should contain the keycode for the key to press.
var2 should contain 1 for one press, 2 for hold down and 3 for relase.
SpecialKbd should send keyboard events to the computer perl is running on.

third:
StringKbd(str1)
str1 should send the given string to the keyboard buffer on the computer perl is running on.


Can anyone help me with these subs? I have the Win32::API module.