#this wil cover files

#!/usr/bin/perl
use strict;

my $line;
my $file = "test.txt";

open MICAH, $file;

while($line = <MICAH>)
{
	print "The next line is: $line";
}