Select Code to Download

-- def_macro note
my $file = shift or die "Please indicate the note you wish to create/a
+ppend to";
...
print $fh $_ while <>;
close $fh or die "Trouble closing file: $!";
print "Successfully appended to note $file";

-- def_macro recall
my $file = shift or die "Please indicate the note you wish to open";
...
local ($/,$\);
print <$fh>;
close $fh or die "Couldn't close file: $!";

-- note example
This should be the first line

-- note example
This should be the second line

-- recall example

This should be the first line
This should be the second line