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