stasis-aries-wal/test/cht/prepend

8 lines
100 B
Text
Raw Normal View History

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