print "Hello world\n";

{
	local(*STDOUT);
	open(STDOUT, ">some_other_world.txt") or die $!;
	print "Hi other world\n";
	close STDOUT;
}

print "Goodbye world\n";