#!/usr/bin/env perl
use strict;
use warnings;

open my $words, '<', 'words.txt' or die $!;

while ( my $word = <$words> ) {
	print $word;
}

print "\n\n";

close $words;