added main perl script