Write at the beginning of a file

From: Alain Star (200410+news_at_pobox.com)
Date: 11/30/04 

Date: Tue, 30 Nov 2004 16:25:48 +0100

Hello!

Can anyone tell me how to write a block of text at the beginning of a file
instead of appending it as in the following example? Thanks. AS

my $fh = new FileHandle;
$fh->open(">> $fileName");
print $fh "$body";
print $fh "\n\n";
$fh->close;