#!/usr/bin/perl -w

use strict;

open DATA, "+>output.txt" or die "Error message here: $!\n";

print DATA "hello, world\n";
seek(DATA, 0, 0);

while (<DATA>) {
    print $_;
}

close DATA;