package TestTry;
use strict;
use warnings;

print "TestTry: module load\n";

sub life {
   my $n = shift;
   defined($n) or die "error: no argument provided";
   print "TestTry::life n='$n'\n";
   $n =~ /^\d+$/ or die "input error: '$n' must consist of digits only";
   $n == 42      or die "Sadly there is no meaning in your life (n=$n)";
   print "TestTry: congrats, your life has meaning!\n";
   print "TestTry::life end\n";
}

1;