sub foo {
	my $o = "";
	$o .= "blah\n";
	$o;
}
if ($to_file == 0) {
	print foo();
} else {
	print MYFILE foo();
}