$|= 1;
my $next= time() + 60;
while( 1 ) {
    print "\a";
    sleep $next-time();
    $next += 60;
}