sub read_files {
    my ($filename) = @_;

    open my $fh, '<', $filename or die "can't open file: $!";
    while (<$fh>) {
        print $_, $/;
    }
}