Butler( $fname, "write", \@kurt );