That's rather backwards. Instead, create a function in the module, and from main, call that function with the required parameters.

Hello again Thenothing,

When you say contrary you mean this?

main.pl

#!/usr/bin/perl
use strict;
use warnings;
use Mypackage;

my $object = new Mypackage();
$object->setValue(100);
print $object->getValue() . "\n"; # retrievable from any script

__END__

$ perl main.pl
100
[download]

Mypackage.pm

package Mypackage;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = {
    _value => shift,
    };
    bless $self, $class;
    return $self;
}

sub getValue {
    my( $self ) = @_;
    return $self->{_value};
}

sub setValue {
    my ( $self, $value ) = @_;
    $self->{_value} = $value if defined($value);
    # return $self->{_value};
}

1;
[download]

If not, show an example with words to understand what you mean.

Update: Maybe this? Initialize the class with a value and then update it?

#!/usr/bin/perl
use strict;
use warnings;
use Mypackage;

my $object = new Mypackage(100);
print $object->getValue() . "\n";
$object->setValue(200);
print $object->getValue() . "\n";

__END__

$ perl main.pl
100
200
[download]

Hope this helps, BR.

I appreciate your participation thanos1983 Thanks.

Hello Thenothing,

On my last update, you can retrieve the value either from the module or from any script that instantiates the class. You can also update the value on any script as and then retrieve it again as shown.

Is this what you are looking for?

Let us know if you need further help, BR.

Seeking for Perl wisdom...on the process of learning...not there...yet!