while( $waiting or 1 ) {
    spin();
}

{
    my $c=0;  # closure to remember spin state
    sub spin {
        local $| = 1;
        print "\r", qw( | / - \ )[$c++%4];
        select undef, undef, undef, 0.25;  # sleep 250 msec
    }
}