1 #!/usr/bin/perl -w 2 use strict; 3 4 $file = "/path/file"; 5 open (, "< $file") or die "Can't open $file for read: $!"; 6 while () { 7 push (@lines, $line); 8 } 9 close FH or die "Cannot close $file: $!"; 10 11 print join(',', @lines); # see if it worked