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

while (@lines = <INFO>)
{
   $" = $.;
   print "@lines\n";
   @lines = <INFO>;
   chop @lines; 
}
close (INFO);