have a Perl diary!

diary.pl

#!/usr/bin/env perl
use strict;
use autodie;

my $note = \&diary;
sub diary {
  my %tasks;
  chomp(my($date,$task) = @_);
  $tasks{$date} = $task;
  ### add FILEHANDLE, have a file!
  #open(my $fh, '>>', q|diary.txt|);
  #select $fh;$|=1; #flush buffer
  #print $fh "debug";
  ###
  print "$_: $tasks{$_}\n"
    for (sort keys %tasks);
}

"1/28/2015"->$note("make a gist");
"1/29/2015"->$note("talk to somebody real");
#<STDIN>->$note(scalar <STDIN>);