#!/usr/bin/perl

use Some::Module;

sub Sub1
{
   ... some code
   return somevalue;
}

1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;

require '/path to library/libraryfilename';

my $test = Sub1(1,3,"a");
print $test;

exit;