#! /usr/bin/perl

use strict;

my $in = shift || '/usr/dict/words';
open IN, $in or die "Cannot open $in for input: $!\n";
while( <IN> ) {
        chomp;
        print "$_\r";
}
close IN;
print "\n";