$file = "/etc/passwd"; open(F,$file) || die "Cannot open $file: $!"; while () { print; } close(F);