Help for this page
#!/usr/bin/perl ... openfile; writefile; close (TEST);
package openFile; ... } 1;
package writeFile; ... } 1;