Create perl_example_usage.pl