I think you need to check you arguments inside the func()

sub printheader {
    my $page = shift;

    if($page eq "index") { return printheader_index() }
    elsif($page eq "some other page")
                         { return printheader_some_other_pager() }

    # ...
}
[download]

Autark