in reply to Returning and passing data to and from subroutines

Just an observation about using version. You used 
use version; my $VERSION = qw('2.0.0_3').

[download]
For dotted decimal notation, try 
use version 0.77; our $VERSION = qv("v2.0.0_3");

[download]

In Section Seekers of Perl Wisdom