perl-test-semaphone/test.pl

#!/usr/bin/perl
use strict;
use warnings;
use Sys::Hostname;

my $hostname = hostname;
print "$hostname\n";
print "Runnig perl scripts";