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