#!/usr/bin/perl
use strict;

my $data;
my $pid = open F, "perl safe.pl -|";

eval
{
		local $SIG{ALRM} =
			sub
			{
				kill 9, $pid;
				close F;
				$data .= " Exceeded CPU Time";
				die;
			};
		alarm(1);
		read (F,$data,254);
		close F;
		alarm(0);
};

print $data;