#!/usr/bin/perl
use strict;

open FIN,"</etc/passwd" or die $!;

my $line=<FIN>;
print $line;