#!/usr/bin/perl
use strict;
use warnings;
use lib '/Users/johnson/MyCal-DoStuff/lib';
use MyCal::DoStuff;

my ($rno, $res) = &do_something(26);

print "a = $a \n";

print "results of sub are random number $rno and result $res \n";
	
exit;