1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 sub ModifyArguments {
7 $_[0] .= '[modified]';
8 return $_[0];
9 }
10
11 sub CopyReturnValues {
12 my ($arg) = @_;
13 #
14 # Alternate Syntax
15 # my $arg = shift; # shift uses the default array @_;
16 $arg .= '[modified]';
17
18 return $arg; # option in this example
19 }
20
21 my $original = 'original value';
22
23 print "Original Value: $original\n";
24 my $retmod = ModifyArguments($original);
25 print " After sub, \$original is '$original'\n";
26 print " sub returned '$retmod'\n";
27
28 print "\nResetting \$original\n\n";
29 $original = 'original value';
30
31 print "Original Value: $original\n";
32 my $retcopy = CopyReturnValues($original);
33 print " After sub, \$original is '$original'\n";
34 print " sub returned '$retcopy'\n";
syntax highlighted by Code2HTML, v. 0.9.1