package formBreaker;

sub test {
   print($CallerPackage::var, $/);
}


package CallerPackage;

our $var;
$var = 'success';
formBreaker->test();