7 lines
118 B
Perl
7 lines
118 B
Perl
#!/usr/local/bin/perl
|
|
|
|
NEXTLINE: $line = <STDIN>;
|
|
if ($line ne "") {
|
|
print ($line);
|
|
goto NEXTLINE;
|
|
} |