a perl script to set fix period