Select Code to Download

#!/usr/bin/env perl
use Tk;
use Time::Stopwatch;
...
sub start_recording_button {tie $ongoing_time, 'Time::Stopwatch';}
sub stop_recording_button {print "Time: $ongoing_time\n";}
MainLoop;

use Tk; use Time::Duration;
$start_time = time();
print "Start Time: $start_time\n";
...
sub update_time {$elapsed_time = concise(duration_exact(time() - $star
+t_time)); $timi->update();}
$timi->repeat(50,\&update_time);
MainLoop;