1 2 3 4 5 6 7
#!/usr/bin/perl $ENV{XAUTHORITY} or $ENV{XAUTHORITY} = "$ENV{HOME}/.Xauthority"; exec "urpmi", "--X", @ARGV;