title: Perl Use of uninitialized value in string
body: <p>"Use of uninitialized value $str1 in string eq at ./script.pl line 20"</p>
  
  <p>not sure why I get this error on line 20, if I comment 20 out, it goes away:</p>
  
  <pre><code> 15 ######## HELP section ################
   16 #
   17 our @ARGV;
   18 our ( $str1, $str2 ) = @ARGV;
   19
   20 if ( $str1 eq "help" ) { &amp;help(); }
   21
   22 if ( !$str1 ) { &amp;help(); }
   23 #
   24 sub help {
   25         print &lt;&lt;EOF;
   26         +++++++++++++++++++++++++++++++++++++++++++++++++++
   27         +  usage:  $0 "cmd1,cmd2,cmd3" "host1,host2,host3"
   28         +++++++++++++++++++++++++++++++++++++++++++++++++++
   29 EOF
   30         exit 0;
   31         }
  </code></pre>