#!/usr/local/bin/perl
use standard;
use nonstandard;
my $option = "standard";
my_print("i m in main\n");
$option::just_print(); <-- error :syntax error at main.pl   near "$option::just_print("

sub my_print(){
 print @_;
}

package nonstandard;

sub just_print{
print "in just_print nonstandard \n";
main::my_print("calling my_print from nonstandard\n");
}
1;
package standard;

sub just_print{
print "in just_print standard \n";
main::my_print("calling my_print from standard\n");
}
1;