#!/bin/sh
eval "exec /mit/watchmaker/`/bin/athena/machtype`bin/perl -S $0 $*"
    if $running_under_some_shell;

	($sec, $min, $hour) = localtime(time);
	print("start, $hour:$min:$sec\n");
	for ($i=0; $i++ <= 10000;) {
	};
	($sec, $min, $hour) = localtime(time);
	print("end, $hour:$min:$sec\n");