#!/usr/local/bin/perl

$i=0;
$sum=0;
$openfile="/etc/passwd";
open(fp,$openfile) or die "fuck";

while(<fp>) {
$line=$_;
chomp($line);
print $line;
print "\n";
}