# File: usemodule.pl
# in order to incorporate the module in your program
# say at the beginning: (see usemodule.pl)

use mymodules; 			#include libary of subroutines


print "Input a string? ";
$s = <STDIN>;   chop($s);	#read a char or substring
print "Input integer? ";
$n = <STDIN>;   chop($n); 	#read a char or substring

print "Print string $s in groups of $n: \n";
printGroup($s,$n);   	#call subroutine that prints in groups of $n string $s

$x = randChar($s);		#call subroutine
#given a string choose a random char from the string
print "Random char from string $s is $x ";

exit;