print Data::GUID->best_guess($your_guid)->as_string