if ( need_new_file() ) {
	copy( blank.file, new.file );
}
open( *NEW_FILE, ">>new.file" );
print NEW_FILE $stuff;
close NEW_FILE;