sub interact 
{ 
	my ($script) = @_; 
	my ($file, $results, $errors); 
  
	$file = &Uniq_t_x (); 
	open (DATA, ">$file") or die "While printing file $file"; 
	print DATA ("#!/bin/sh\n", $script); 
	close DATA; 
  
	chmod (0744, $file); 
	system ("/bin/sh $file > $file.txt 2> $file.errs"); 
  
	if (open (DATA, "$file.txt")) { 
		$results = join ('', <DATA>); 
		close DATA; 
	} 
  
	if (open (DATA, "$file.errs")) { 
		$errors = join ('', <DATA>); 
		close DATA; 
	} 
  
	unlink ($file); 
	unlink ("$file.txt"); 
	unlink ("$file.errs"); 
	return ($results, $errors); 
} #interact

sub Uniq_t_x 
{ 
	my($job, $now, $uniq); 
 
	$job = `echo \$\$`; 
	$now = time(); 
	$job = $job % 65536; 
	$uniq = sprintf("% 08X% 04X", $now, $job) ; 
 
	return ($uniq); 
 
} # Uniq_t_x