$input_file="/home/foo/foo_file.txt";
open (INFILE, $input_file) || die "Could not open $input_file\n";

while(<INFILE>){
    print $_;
}

close INFILE;