There's no "problem" I just don't know how to do it. Here's the code I used to make the note files so far for reference.

#! Perl
use strict;

my $notefile = 'notes'; #Define file for notes here

sub new_notes {
    my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(
+time);
    print 'Type {e} on a blank line to end the note'."\n";
    my $string = sprintf "%02d/%02d/%4d %02d:%02d\n", $mon+1, $mday, $
+year+1900, $hour, $min;
    while (<STDIN>) {
        last if m!\{e\}!;
        $string .= $_;
    }
    $string .= "-----\n";
    open(NOTE, ">>$notefile");
    print NOTE $string;
    close(NOTE);
    return 1;
}
sub get_notes {
}


print "Welcome to MyNotes, a personal note taking system.\n";
print "\tPress 'h' for help\n";

new_notes();
[download]

> munchie, the number munchin newb
Llama: The other other white meat!
(you had to be there :-P)