#!/usr/bin/env perl
use Tk;
use Time::Stopwatch;
$mw = new MainWindow; #Initialize main window
$ongoing_time = 0;
my $label_running_time_time = $mw -> Label(-textvariable=> \$ongoing_time, -relief=>'groove') -> grid(-row=>9,-column=>2); # bind with tie::watch
my $button_start_recording = $mw -> Button(-text => "Start", -command =>\&start_recording_button) -> grid(-row=>10,-column=>1); # duuh
my $button_stop_recording = $mw -> Button(-text => "Stop", -command =>\&stop_recording_button) -> grid(-row=>10,-column=>3); # duhh
sub start_recording_button {tie $ongoing_time, 'Time::Stopwatch';}
sub stop_recording_button {print "Time: $ongoing_time\n";}
MainLoop;