sub foo {
	my ($file, $info) = @_;
	local *FH;
	open (FH, ">" . $file) or die "$!\n";
	print FH $info;
	close FH;
	}