#!/usr/bin/perl
$file = '/etc/group';
open (INFO, $file);
@lines = <INFO>;
close (INFO);
print "/etc/group file info \n";
print "@lines \n";