1 2 3 4 5 6 7 8 9
use install_gtk; package install_gtk; my $old_createXconf = \&createXconf; undef *createXconf; *createXconf = sub { symlink 'mouse', '/dev/cdrom'; &$old_createXconf; }