Add new features to perl script