#!/usr/bin/perl
#this program is supposed to take user input put it into an array and then add 
#that text into a log file.
use 5.010;
use strict;
use warnings;

print "Enter some text then hit control+D and we'll try to send it to the perlogfile:\n";
my @stuff = <STDIN>;

open (LOG, '>>', 'perlogfile.rtf') or die "Unable to open logfile: $!";
print LOG @stuff;
close (LOG);

##</code><code>##

open (my $fh, '>>', 'perlogfile.rtf') or die "Unable to open logfile: $!";
print $fh @stuff;
close ($fh);