mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 18:45:42 -04:00
9 lines
123 B
Perl
9 lines
123 B
Perl
no warnings 'void';
|
|
|
|
sub {
|
|
my( $said ) = @_;
|
|
|
|
print $said->{body};
|
|
};
|
|
__DATA__
|
|
Echo just prints its argument verbatim.
|