open(DATAFILE, $file);
while (defined ($line = <DATAFILE>)) {
    chomp $line; 
    print $line                 
}
close(DATAFILE);