sub f {
    print "Data from plugin: $_[0]\n"; 
    return 'foo';
}; 

package Plugin; 
my $r = main::f('bar'); 
print "Data to plugin: $r\n"