8 lines
100 B
Text
8 lines
100 B
Text
|
#! /usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
$| = 1;
|
||
|
|
while(my $line = <STDIN>) {
|
||
|
|
print("$ARGV[0]:\t$line");
|
||
|
|
}
|