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