#!/usr/bin/perl
use warnings;
use strict;
my $file = "/etc/passwd";
open(PASSWD,"<$file") or die "Couldn't open $file: $!\n";
while (<PASSWD>){
print $_ unless eof PASSWD;
}