Your code works after deleting the extra left curly in line 35. I added print $login, $/; at the tail of the END() routine, just to show what you get. What I typed is dutifully printed on shutdown.

After Compline,
Zaxo