#!/usr/bin/perl -w

use strict;

my $file = '\/etc\/group';

local*FH;
open(FH, $file) || die "Cannot open file: $!";
my @contents = <FH>;
close FH;

print $_ foreach (@contents);