Hello All ,
I found this code in the perl cookbook. So I was tyring to understand how to call it as a sub from a main script.
Thanks
cal
sub words{
my ($item, $cols, $rows, $maxlen);
my ($xpixel, $ypixel, $mask, @data);
getwinsize();
# first gather up every line of input,
#...