#!perl -w
use strict;
$|=1;
use Win32::Mutex;
my $mutexname="PIGMania";
if(Win32::Mutex->open($mutexname)){
	print "must be already running";
	exit;
	}
my $mutex=Win32::Mutex->new(1,$mutexname);
$mutex->wait(3);
print "Mutex: $mutex\n";
my $x=30;
while($x){
	print ".";
	select(undef,undef,undef,1.5);
	$x--;
	}