关于tk和fork

请教各位大侠，我想用tk实现这样一个功能： 点击button stop后，button的item显示为start,同时label中的text停止滚动显示，然后点击button start，label的text会继续显示。
以下是我写的, 发现在tk中fork时，sleep 没有生效，而且感觉变量$but改变也没有生效，如果不用fork直接使用信号，那么就会阻塞，sleep 10s后，button才能改变，而不是按下去就改变,
是什么问题呢？关于进程、事件驱动这块我理解的还不深入，希望学习下。
#!/usr/bin/perl
use TK;
my $mw = MainWindow->new;
my $mess = "this is from me ^o^";
my $but = "Stop";
my ($ppid,$pid);
$SIG{'USR1'} = sub {
    sleep(10);
};
$ppid = $$;
$mw->Label(-textvariable => \$mess)->pack(-expand => "1");
$mw->after(100,\&scroll);
$mw->Button(
    -textvariable    => \$but,
    -command => sub {
      if($but eq "Start") {
        $pid = fork();
        if ( $pid ==0 ) {
           print "start->stop\n";
        } else {
          wait;
          $but = "Stop";
        }
      } else {
        $pid = fork();
        if ( $pid ==0 ) {
           system("kill -USR1 $ppid");
           print "stop->start\n";
        } else {
          wait;
          $but = "Start";
        }
      }
    }
)->pack;

sub scroll {
$mess =~ /(.)(.*)/;
$mess = "$2$1";
$mw->after(100,\&scroll);
}
$mw->MainLoop;