Select Code to Download

package HighLander;
use strict;
...
}

1;

#!/usr/bin/perl
use strict;
...
# if this script is already running, you'll never make it this far... 
print "Running...\n";
sleep 10;

if ($! == ($^O =~ /Win32/ ? 33 : EWOULDBLOCK)) {

use Highlander qw( :verbose );

...

...
}

...