$template = "A8 A4 A12 l s s s s l A16 l";

# determine the size of a record
$recordsize = length(pack($template,(  )));

while (read(WTMP,$record,$recordsize)) {
  ($ut_user, $ut_id, $ut_line, $ut_pid, $ut_type, $ut_e_termination, $ut_e_exit, $ut_reserved1, $ut_time, $ut_host, $ut_addr) = unpack($template,$record);
}