0: #!/usr/bin/perl -w
1: use strict;
2: use Curses;
3:  
4: $SIG{'INT'} = sub {endwin; exit(0);}; 
5: 
6: initscr;
7: cbreak;
8: noecho;
9: clear;
10: 
11: for (my $i = 0;;$i++)
12: {
13:   if ($i % 2)
14:   {
15:     addstr(0, $i % 80, '%-');
16:   }
17:   else
18:   {
19:     addstr(0, $i % 80, '%<');
20:   }
21:   select(undef, undef, undef, 0.25); # sleep for 1/4 second
22:   addstr(0, ($i - 2) % 80, '  ');
23:   move(1, 0);
24:   refresh;
25: }
26:  
27: __END__
28:  
29: =pod
30:  
31: =head1 NAME
32:  
33: rws -- Running With Scissors
34:  
35: =head1 SYNOPSIS
36:  
37: B<rws>
38:  
39: =head1 DESCRIPTION
40:  
41: Trolls for a response from Randal.  Press the interrupt key (usually 
42: Ctrl-C) to quit. 
43:  
44: =head1 INSTALLATION
45:  
46: You may have to change the first line if B<Perl> is not in F</usr/bin> on
47: your system.  You will also need the B<Curses.pm> module (which is in the
48: F<libcurses-perl> package in Debian GNU/Linux.) Other than that, just
49: make the script executable and you are ready to go.
50:  
51: =head1 BUGS
52:  
53: Assumes terminal line length is 80 -- itself an example of running with
54: scissors!
55:  
56: =head1 AUTHOR
57:  
58: Jaldhar H. Vyas E<lt>jaldhar@braincells.comE<gt>
59:  
60: =head1 LICENSE
61:  
62: This code is free software under the Crowley Public License ("Do what
63: thou wilt shall be the whole of the license")
64:  
65: =head1 VERSION
66:  
67: 1.0 -- Aug 5, 2000
68: 
69: =cut