My stdheader for perl