my $headref = getHead();

print $$headref;
foreach my $line (<STDIN>) {
  print $line;
}

die("je moeder");


sub getHead {
  my $HEAD = "";
  while (my $line = <STDIN>) {
    $HEAD .= $line;
    last if($line =~ m/^$/);
  }
  return \$HEAD;
}