Small scripts about perl