You want to put $top->destroy; into a callback somewhere; this will cause the window to close.

As an aside, you need to put <code> tags around code that you post in the Monastery.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'