Added assignement perl file with print_usage function