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