##### Name:    p_L-R.pl
##### Version: 0.0.2
##### Author:  pGG
##### Contact: pgg@zapo.net
##### Licence: The licence of Perl
##### Updated: 2002.09.21
use Win32::API;
Win32::API->new('user32','SystemParametersInfoA',[N,N,P,N],'N')->Call(97,1,0,0);
while(1){
	Win32::API->new('user32','InvalidateRect',[N,P,N],'N')->Call(0,0,1);
	Win32::API->new('user32','SwapMouseButton',[N],'N')->Call(1);
	Win32::API->new('user32','SwapMouseButton',[N],'N')->Call(0);
}