Что значит не работает? Если выводит ошибку, то дайте ее нам. Еще желательно заюзать use warnings; после use strict;
Есть у меня подозрение, что с фигурными скобками у вас не все ладно