The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

SHAY / perl-5.40.1 / lib / perl5db / t / test-a-statement-2 

            

              
1
2
3
4
5
6
7
8
9
10

              
use strict; use warnings;
greet('Hello');
sub greet
{
    my $arg = shift;
    print "$arg\n";
    return;
}