#!/usr/bin/perl

use strict;
use warnings;

open print => "/etc/passwd" or die;
print while <print>;

__END__