use IO::File;
use strict;

my $fh;

sub test {
my $filename = 'test2.txt';
	unless (-f $filename) {
		print "File Exists!";
	} else {
		print "File does not exist";
	}
 }
 
 sub openFile {
	$fh = IO::File->new();
    if ($fh->open(">> test2.txt")) {
		print "file open";
        print <$fh>;
        $fh->close;
	} else { 
	print "file failed to open";
    }
 
 }
 openFile();
 test();