Perl — reference sample — DedSec Project

use strict; use warnings; sub greet { my ($name) = @_; return "Hello, $name!"; } print greet("Ada"), " n";

Source reference

use strict;
use warnings;
sub greet { my ($name) = @_; return "Hello, $name!"; }
print greet("Ada"), "\n";