title: Getting wrong results with Perl subroutine
body: <p>I have a test file that looks like this:</p>
  
  <pre><code>my $int = new Services::Plugins::FTP::ftp;
  $int-&gt;AddUser("durr");
  </code></pre>
  
  <p>The module has this code:</p>
  
  <pre><code>sub AddUser {
  
  my( @username ) = @_;
  print "@_\n";  
  
  }
  </code></pre>
  
  <p>But my results looks like:
      Services::Plugins::FTP::ftp=HASH(0x2490160)durr</p>
  
  <p>I just want 'durr'.</p>
  
  <p>Why am I getting the extra stuff?</p>