s/\s//;   # remove all whitespace from $_
if($_ eq "l") { entry_list(); }
elsif($_ eq "a") {  addentry();}   #etc