stasis-aries-wal/test/cht/prepend
2005-01-20 23:58:29 +00:00

7 lines
100 B
Perl
Executable file

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