sub mysub {
	print STDERR "This is printed before the error message.\n";
	return "\nThis is printed in the middle of the error message.";

}
open(TMPFILE,"<datafile.txt") || die  "Cant open: $!" .  mysub();