Test mkdir rmdir.pl

#!/usr/bin/perl

# script to monitor if able to create and remove dir (for sitescope)

use strict;

my $rc = 2;

rmdir("/tmp/sitescope-mkdir-rmdir-test");

if (mkdir("/tmp/sitescope-mkdir-rmdir-test")) { $rc--; }
if (rmdir("/tmp/sitescope-mkdir-rmdir-test")) { $rc--; }

print "Return Code: $rc";