#!perl -w
use strict; # always

open(F,">/temp/foo.txt") 
    or die "Unable to open temp file for write: $!\n";
print F "This is a test.  This is only a test.\n";
close(F);

open(F,"/temp/foo.txt") 
    or die "Unable to open temp file for read: $!\n";
while (<F>) { print "foo: $_"; }
close(F);

unlink ("/temp/foo.txt");