#!/usr/bin/perl -w
use lib "/usr/local/lib/perl/lib/perl5/site_perl/5.8.8";
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
print header;
	my ($x, $y);
	my $datafile = "/full/path/to/file/data.txt";
	system("perl /full/path/to/file.cgi")==0 or die "system failed $?";	
if(!(-w $datafile)){
	print "What file?<br>";
}	
else{	
	open (FILE, '<', '$datafile') || die "Could not read $datafile $!\n";
		$x = <FILE>;		
		$y = <FILE>;
	close (FILE);
}
print $x."<br>";
print $y."<br>";