#!/usr/bin/perl -p0
s|^(\s*)\@\{HOME\}/.Xauthority\s+r,$|$&\n$1/var/run/athena-sessions/xauth-* r,|m or die;
