sub GuidToString {
    return join '', map {"\\$_"} unpack "(H2)*", shift; 
}