#!/usr/bin/perl -w

use TimeLimit;

$outter1 = time;
time_limit {
  $inner1 = time;
  time_limit { sleep 7 } 5;
  $inner2 = time;
} 3;
$outter2 = time;

$elapsed_outter = $outter2-$outter1;
$elapsed_inner  = $inner2-$inner1;
print "Seconds elapsed for outter limit: $elapsed_outter\n";
print "Seconds elapsed for inner limit:  $elapsed_inner\n";