| # file: runme.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"; | |