Help for this page

Select Code to Download


  1. or download this
    package MyPackage;
    use Symbol qw( gensym );
    ...
            open *${$handle}, $file || die;
            import(*${$handle}); # this apparently isn't working?
    }
    
  2. or download this
    use MyPackage;
    use strict;
    ...
    while (<$LOG>) { print; } # yields the following:
    Global symbol "$LOG" requires explicit package name at ./moduletest.pl
    + line 21.
    Execution of ./moduletest.pl aborted due to compilation errors.