Package1::fun1(); my $c=Package1::fun2(10, 23); print "sum: $c\n"; package Package1; sub fun1 { print "hello\n"; } sub fun2 { my ($a, $b)=@_; return $a+$b; }