use strict;
use warnings;

my $file1_temp = "delme.txt";

open my $ioFile, '+>', $file1_temp or die "Could not open $file1_temp: $!";
print $ioFile "hello, world!";

seek $ioFile, 0, 0;
print while <$ioFile>;
close $ioFile;