#! 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();