| Revision 1692, 665 bytes checked in by iwaim, 16 years ago (diff) |
|---|
| old | new | |
|---|---|---|
| 1 | #!/usr/ |
|
| 1 | #!/usr/bin/perl | |
| 2 | 2 | |
| 3 | 3 | $target = "bushu.select"; |
| 4 | 4 | $target = shift if @ARGV; |
| old | new | |
|---|---|---|
| 1 | #!/usr/ |
|
| 1 | #!/usr/bin/perl | |
| 2 | 2 | |
| 3 | 3 | require 5.000; |
| 4 | 4 |
| old | new | |
|---|---|---|
| 1 | #!/usr/ |
|
| 1 | #!/usr/bin/perl | |
| 2 | 2 | use Term::Cap; |
| 3 | 3 | use Term::Complete; |
| 4 | 4 |