# 1) Create a file called input.txt with 5 lines going down. Some lines should begin with the word 'good'
# 2) Create a script that prints the contents of a file in perl
# 3) Show it on the internet
# 4) Submit the URL to moodle
# 5) Print only if the file line starts with the word 'good'
# 6) Make an input field
# 7) Search for line that starts with input

#!/usr/bin/perl
print "content-type:text/html; charset=utf-8\n\n";

# Open file in read-only mode
open(FILE, "input.txt")
	or die "Error - Unable to open input.txt $!";

# Print file
while (<FILE>)
{
	print $_;
}

close FILE;