Unnamed

sub getTest {
	print "<stuff><message>";
	print "stuff";
 	$filename = "/var/www/all/test.out.txt";
# 	$filename = "/var/www/all/test.in.txt";
	if (-e  $filename) {
		print "\n .:: This file already exists! ::. \n";
	} else {
		print "\n .:: This file doesn't exist! ::. \n";
	}
	if (-r $filename) {
		print "\n .:: This file is read-able ::. \n";
	} else {
		print "\n .:: This file is not read-able ::. \n";
	}
	if (-w $filename) {
		print "\n .:: This file is write-able ::. \n";
	} else {
		print "\n .:: This file is not write-able ::. \n";
	}
# 	if (! open (FILE, "<", $filename)) {
	if (! open (FILE, ">", $filename)) {
		print "opening of file stuff at ($filename) died... $!";
		die "this died... $!";
	}
	if (-e  $filename) {
		print "\n .:: This file already exists! ::. \n";
	}
	if (-rw $filename) {
		print "\n .:: This file is rw-able ::. \n";
	}
# 	print <FILE>;
	print FILE "some text to test with";
	close FILE;
	print "\n ... ending stuff now";
	print "</message></stuff>";
}

1;