#!/usr/bin/perl
use Fcntl qw(:DEFAULT :flock);
$|=1;
print "Content-type:text/html;charset=ISO-8859-1\n\n";

open DF,"test.txt";
@test=<DF>;
close DF;

my $rec;
foreach(@test){$rec.=$_;}
sysopen (DF,"test.txt",O_WRONLY | O_CREAT);
syswrite DF,$rec,length($rec);
close DF;

exit;