#!/usr/bin/perl

use strict;
use warnings;
use Win32::Mutex;

my $mutex = Win32::Mutex->new(1, 'mutex.pl');
my $return = $mutex->wait(0);
die "already running" unless $return;

while (1){ exit if <> }