open($filehandle, '>', $filename) or die "Cannot open file for writing
+: $!\n";
...
open($filehandle, '<', $filename) or die "Cannot open file for reading
+: $!\n";
close($filehandle);
[download]

Note you can remove these lines - tempfile and printFile do this for you. (The first close($filehandle) is still required, but not the second.)