END {
   print "\$n: '$n'\n";
   print "\$_: '$_'\n";
   close OUT;
   ## anything else you can think of!
}