title: How to modify a Perl variable in a different package
body: <p>I have this </p>
  
  <p>main.pl</p>
  
  <pre><code>use Second;
  
  sub main {
      our $var = 0;
      subroutine()
  }
  </code></pre>
  
  <p>Second.pm</p>
  
  <pre><code>Package Second;
  
  use Exporter;
  
  our @ISA=qw(Exporter);
  our @EXPORT=qw(subroutine);
  
  use strict;
  
  our $var;
  sub subroutine{
      print $var;
  }
  </code></pre>
  
  <p>which gives the error</p>
  
  <blockquote>
    <p>Use of uninitialized value in print at </p>
  </blockquote>
  
  <p>How can I send that variable without like parameter?</p>