blob: ff14df657395fdc70a0a2441a4a72095498ce64c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
use strict;
use warnings;
print "One\n";
sub my_pass_args_to
{
print "Two\n";
}
my_pass_args_to ("Arg1", "Capsula", "GreekHumor", "Socrates");
print "Three\n";
|