# | |
# Perl5 script for testing simple example | |
use example; | |
# Call our gcd() function | |
$x = 42; | |
$y = 105; | |
$g = example::gcd($x,$y); | |
print "The gcd of $x and $y is $g\n"; | |
# Manipulate the Foo global variable | |
# Output its current value | |
print "Foo = $example::Foo\n"; | |
# Change its value | |
$example::Foo = 3.1415926; | |
# See if the change took effect | |
print "Foo = $example::Foo\n"; | |