请用perl帮我写一个倒计时1一天的程序，程序结束后需要弹出来一个窗口提示时间到了！

以下是一个简单的倒计时程序，它会在终端上每秒输出剩余时间，当时间到了之后，会弹出一个提示窗口：

use warnings;
use strict;
use Time::HiRes qw/sleep/;
use Tk;

my $total_seconds = 24 * 60 * 60; # 一天的秒数
my $start_time = time();
my $end_time = $start_time + $total_seconds;

while (time() < $end_time) {
    my $remaining_seconds = $end_time - time();
    my $remaining_time = sprintf("%02d:%02d:%02d", $remaining_seconds / 3600, ($remaining_seconds % 3600) / 60, $remaining_seconds % 60);
    print "\r$remaining_time";
    sleep(1);
}

print "\r00:00:00\n";
my $mw = MainWindow->new();
$mw->withdraw();
$mw->messageBox(-message => "时间到了！");

这个程序先计算出当前时间和一天后的时间，然后进入一个循环，在循环中每秒计算出剩余时间并输出到终端上，直到时间到了为止。时间到了之后，使用Tk模块弹出一个提示窗口。