sub _open_write {
	my	$self = shift;
	my $fh = do { local *FH };
	open $fh, ">$self->{'output'}" or die "Couldn't open file: $!\n";
	return $fh;
}