package openFile; use base 'Exporter'; our @EXPORT_OK = qw/openfile/; sub openfile { open (TEST, ">/tmp/bh/output/test.txt"); print (TEST "FILE HEADER\n"); } 1;