my $start = time;
while (time < $start + 1) {
    print "yay";
}