#!/usr/bin/perl -w
open (OUT, ">junk.txt") or die $!;

print OUT ("hi\n") for (1..3);
close(OUT) or die $!;  
open (IN,"<junk.txt");
print while(<IN>);
close(IN) or die $!;