SEM.pm SHM.pm $! bugfix