#!/usr/bin/perl print "\n\n"; open(FH, "+>aFile") || die; print FH "This line is written to joker.\n"; seek(FH,0,0); # Go to the beginning of the file while(<FH>) { print; # Reads from aFile; the line is in $_ }