Changed perl not to refer to hardcoded full dir name

Uses getcwd instead to make sure if crazy domains changes home5->homex
it won't matter.