#!/usr/bin/perl -w use strict; use Template; do 'cmd_verbs_test.pm'; print ("Hello!\n"); #do 'cmd_verbs_test.pm'; # opens file with Verbs hash foreach my $cmd (sort keys %Verbs){ # sets value to description text without preceeding or ending newlines and spaces my $desc = $Verbs{$cmd}{description}; print("Command: $cmd \n"); print("Description: $desc \n"); print("Discrete: $Verbs{$cmd}{discrete} \n\n"); } print("Done!\n");