#!/usr/bin/perl

use lib '/tmp/bh';

use openFile qw/openfile/;
use writeFile qw /writefile/;

openfile;
writefile;
close (TEST); 

##</code><code>##

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;

##</code><code>##

package writeFile;

use base 'Exporter';
our @EXPORT_OK = qw/writefile/;

sub writefile {
        printf (TEST "This is for testing only\n");
}

1;