#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;

print header(),
  start_html('test');
print h1(system("./test7.pl name=5 val=3 x=13 > temp.dat; mv temp.dat temp1.dat"));
print h1(system("./test7.pl name=5 val=4"));
print end_html();