8 lines
93 B
Perl
Executable file
8 lines
93 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
print "> ";
|
|
while(<>) {
|
|
if (/exit/) { exit(0) };
|
|
print;
|
|
print "> ";
|
|
}
|