my $args = undef;
     $args = shift if $_[0];
  my @date = gmtime(time);
  my @month = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
  my @days = qw( Sun Mon Tue Wed Thu Fri Sat );

  print 'Date: '.$days[$date[6]].', '.
               sprintf("%02d", $date[3]).' '.
               $month[$date[4]].' '.
               (sprintf("%02d", $date[5])+1900).' '.
               sprintf("%02d", $date[2]).':'.
               sprintf("%02d", $date[1]).':'.
               sprintf("%02d", $date[0]).' GMT', "\n";
  print 'Server: Reifensuchmaske', "\n";
  print 'Cache-Control: private, s-maxage=0, max-age=0, must-revalidate', "\n";
  print 'Content-Type: application/x-www-form-urlencoded; charset=iso-8859-1', "\n";
  print "\n";
  print $args->{content};