open my $DF, '<', $file;
    if (! defined $DF) {
        print "Cannot open file '$file' because: $!";
    }
    else {
        while (my line = <$DF>) {
            print $line;
        }
        close $DF;
    }