@dagolden dagolden xdg Perl code