In response to some Python someone posted somewhere

skipping_stones.pl

#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes 'usleep';

$|++; # force auto-flush (see perldoc perlvar)

my $distance = 1 + int(rand(49));
my @stones = ("_","-");

print( "\e[?25l" ); # hide cursor

for ( my $i = 1; $i < $distance; $i++ )
{
	print( "\e[" . sprintf ( $i * 2 + 1 ) . "D " );
	print( "  " x $i );
	print( $stones[ rand @stones ] );
	usleep(90000);
}

print( "\e[D'splash!'\n" );
print( "\%You scored: $distance\n" );
print( "\e[?25h" ); # show cursor