#!/usr/bin/perl -w
use strict;

open(FILE,'/path/to/file') || die $!;
print while (<FILE>);
close(FILE);
...
open(FILE2,'/path/to/file2') || die $!;
print while (<FILE2>);
close(FILE2);