#!/bin/perl

$HOSTNAME = `hostname -s`;
#$HOSTNAME = server2;

if ($HOSTNAME eq server1) {
  $ANCHOR = "/HOME/";
} elsif ($HOSTNAME eq server2) {
  $ANCHOR = "/TEST/HOME";
} elsif ($HOSTNAME eq server3) {
  $ANCHOR = "/DEV/HOME";
}

print "Anchor is $ANCHOR on host $HOSTNAME\n";