Added usage for the perl script