sub send_basic_header {
  my $self = shift;
  ...
  $self->send_status_line(@_)    #works
  print $self "Date: ", time2str(time), $CRLF   #DIES HERE
  ...
}