Help for this page
package MyTie; ... return; }; __DATA__
package main; use strict; ... close($FOO); exit;