new to active perl need ,to modify package

[arushee]

I have a package which ftp files from one server to another.
I need to add one more parameter (of file location on firstserver) to the main and pass it in upload script. eg
my main class is like
sub main()
{
my %opts = ();
getopts(a:b:s:x:vc:e:q:',\%opts);

my $Config = AZZ::Config->new();

my $Request = undef;
$Request = AZZ::Request::Delivery->new($Config->{ZXX},"",$Config->{CCA},"packagename");
}
and new in Delivery new is as follows

sub new($)
{
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{FILES} = ();
bless $self, $class;
$self->preservePath();
return $self;
}
can some one give me a clue how to go forward