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...
}