# file: example.pl 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"; # Call the gcdmain() function @a = ("gcdmain","42","105"); example::gcdmain(\@a); # Call the count function print example::count("Hello World", "l"),"\n"; # Call the capitize function print example::capitalize("hello world"),"\n";