Perl — δείγμα κώδικα — DedSec Project

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

Αναφορά πηγαίου κώδικα

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