$RealBin = catpath ((splitpath (rel2abs ($0)))[0,1], '');