#!/usr/bin/perl -w

use strict;

sub main
	{
	my $val = `clear; make all 2>&1`;
	
	if($val =~ /make: \*\*\* .* Error 1/)
		{
		open(PAGER, "| more") || die("Open: $!");
		print(PAGER $val) || die("print: $!");
		close(PAGER) || die("Close: $!");
		exit(1);
		}
	
	else
		{
		system("clear; ./prog 2>&1 | more");	
		}
	}

main();
