#!/usr/bin/perl

use strict;
use warnings;
use autodie;

open my $out,'>:raw',"file.tmp";
print $out "a line\na second line\n0";
close $out;

open my $in,'<:raw',"file.tmp";
while (my $line=<$in>) {
	chomp $line;
	print "read: $line\n";
}
close $in;