do
{
	print "\nEnter an input file name: ";
	chomp($filename = <STDIN>);
	open FILE, $filename or die $!;
	while (<FILE>){
		 print "$_";
			}
	
	
		print "\n\nDo it again, yes (or no)? ";
		print chomp($answer =  lc <STDIN>);
} while ($answer eq "yes");