11 lines
135 B
Text
11 lines
135 B
Text
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
my ($symbol) = @ARGV;
|
||
|
|
|
||
|
|
# default: | c+ '#'
|
||
|
|
$symbol = '#' unless $symbol;
|
||
|
|
|
||
|
|
while (<STDIN>) {
|
||
|
|
print "$symbol$_";
|
||
|
|
}
|