sub my_func {

  my($check) = @_;

  if ($check eq "no") {
    &send_headers;
  }

  #do stuff here

  return();

}

sub send_headers {
 my $query = CGI:new();
 print $query->header;
}