package writeFile; use base 'Exporter'; our @EXPORT_OK = qw/writefile/; sub writefile { printf (TEST "This is for testing only\n"); } 1;