@EXPORT_OK just tell what can be imported from this package. If you want to set some default things to be exported by the package you should set the array @EXPORT too.

Soo, @EXPORT_OK just tells what we can import explicity:

  use nu qw( &some_funtion $var $array %etc ) ;
[download]

And @EXPORT set what the package export when you don't paste anything:

  use nu ;
[download]

Take a look in the documentation of Export: http://www.perldoc.com/perl5.8.0/lib/Exporter.html

Other thing, try to build a pure Object-Oriented module, soo you will be able to use it in any type of application (console, GUI, CGI, mod_perl, etc...). One bad thing that you are doing is the action variablr, dependent of the arguments paste when the applications is executed by console.

Here's a simple example to start building an OO module:

package FOO ;

use strict qw(vars);
use vars qw($VERSION) ;
$VERSION = '0.01' ;

sub new {
  ## The class name:
  my $class = shift ;
  ## Arguments when creating the object:
  my ( $arg1 , $arg2 , @rest ) = @_ ; 
  ## Define from what package this object will be:
  my $this = bless({} , $class) ;
  
  ## Define some internal value/attribute in the object:
  $this->{FOO} = $arg1 ;

  ## Return the created object:
  return $this ;
}

sub methodx {
  ## The object reference:
  my $this = shift ;
  ## Arguments of this method:
  my ( $arg1 , $arg2 , @rest ) = @_ ;
  ...
}

1;
[download]

To use this module and create an object:

  use FOO ;

  my $foo = new FOO("some args") ;

  my @returned = $foo->methodx("other args") ;
[download]