#!/usr/bin/perl
# w5.18.pl  A shorter way to get lines from a file and put them in an array.
# Usage: w5.18.pl roses.txt

open(FH, "$ARGV[0]");
@lines = (<FH>);
close(FH);
print @lines;
