#!/usr/bin/perl

open FH,"data.txt" or die " can't open file $!\n";
while ( <FH> ) { print $_; }