Daily Organizer

#!/usr/bin/perl

#Defining
$mainPrompt="Daily Organizer\n";
$op1="1 - View Events\n";
$op2="2 - Add Event\n";
$op3="3 - Delete Event\n";
$op4="0 - Quit";
%events;

#Menu printing
sub printMenu {
print $mainPrompt;
print "-"x15;
print "\n";
print $op1;
print $op2;
print $op3;
print $op4;
print "\n";
$usrInput=<>;
}

#Viewing events
sub viewEvents {
if(!%events) {
printf "There are no events!\n";
} else {
foreach $event (sort keys %events) {
        printf "Time: $event\tEvent: $events{$event}\n";
        }
}
printf "\n";
}

#Adding an event
sub addEvent {
printf "What is the event?\n";
$tmpEvent = <>;
chomp($tmpEvent);
printf "What time is this at?\n";
$tmpTime = <>;
chomp($tmpTime);

$events{$tmpTime} = $tmpEvent;
}

#Delete an event
sub delEvent {
printf "What time do you want to delete?\n";
$tmpDel = <>;
chomp($tmpDel);
delete $events{$tmpDel};
}
$tmpInput = &printMenu;

#Loop to choose menu option
while($tmpInput > 0) {

printf "You chose $tmpInput\n";

if($tmpInput == 1) {
&viewEvents;
}
if($tmpInput == 2) {
&addEvent;
}
if($tmpInput == 3) {
&delEvent;
}

$tmpInput = &printMenu;

}