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

require '/path to library/libraryfilename';

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

exit;