# メイン処理　の下100行目の頭に#をつける↓

#elsif ($mode eq 'into') { ®ist('into'); }

# 退室処理 #　sub out {の下247行目の頭に#をつける↓

#®ist('out');

たぶんこれでおｋｗ
やっぱKENT様のコードはｴﾚｶﾞﾝﾄにしてﾌﾞﾘﾘｱﾝﾄだわｗ