package cacher;
use strict;
use warnings;
use warnings FATAL => qw{ uninitialized }; # larry, this should have been part of warnings.

use base 'Exporter';
our @EXPORT = ("pdfpagenum");

BEGIN {
  my $saved_pkg_args="undefined";

  sub import {
    print "import args: ".join("|", @_)."\n";
    $saved_pkg_args= $_[1];
    print "in import, saved args '$saved_pkg_args'\n"; 
  }

  sub test { print STDERR "in test, you have saved '$saved_pkg_args'\n"; }

  print "this should executed after the import: $saved_pkg_args.\n"
}

1;