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