#A.pm
package A;
 
sub just_print{
    print @_;
    main::main_print();
}
 
1;