#!/usr/bin/perl
print "Content-type: text/html\r\n\r\n";
	
### Generate some numbers.

$now = time();
$nill = time() + 50;
$null = time() + 100;

### Then print to prove that worked

print "<br><b>Line one from mixed.data = $now";
print "<br><b>Line two from mixed.data = $nill";
print "<br><b>Line three from mixed.data = $null";

### Fine -- So now I make an array

@scale = ($now,$nill,$null);

### And print to prove that works

print "<br><b> Print Array = @scale";

### Fine

###  Then I overwrite mixed.data with

$data_path = "data/mixed.data";

open(O, ">$data_path"); 
print O join("\n",@scale),"\n";
close(O);