#!/usr/bin/perl

use strict;
use warnings;

open BEGIN, "/etc/passwd" or die;
print while <BEGIN>;
__END__