sub getInclude {
 local ($/) = undef;
 open (SSI, "<$_[0]") ||die "Cannot open $_[0] for reading: $!\n";
  my $header = <SSI>;
 close SSI;
 return $header;
}

##</code><code>##

$theheader = getInclude($myincludefile);

##</code><code>##

print getInclude($myincludefile);