syntax fix, perl header