package routine;
our @EXPORT=qw(dostuff);
use Exporter;
our @ISA=qw(Exporter);
use strict;

sub dostuff()
{
    my ($scalar,$scalar,$scalar_REF,$scalar)=@_;
    ..
    ..
    ...Do Some Processing...
}


##</code><code>##

(doit.pl)

use lib "/libs";
use routine;
dostuff("a","b",\@c,"d");