11 lines
137 B
Perl
11 lines
137 B
Perl
#!/usr/bin/perl
|
|
|
|
# disable I/O buffering (this is essential)
|
|
$| = 1;
|
|
|
|
while(<>)
|
|
{
|
|
# add 'bla' in front of the string
|
|
print "bla".$_;
|
|
}
|