An example you use every day an never know about it. The dynamic loading of DBD drivers from the DBI source code.

    # --- load the code
    my $driver_class = "DBD::$driver";
    eval qq{package                     # hide from PAUSE
                DBI::_firesafe;         # just in case
            require $driver_class;      # load the driver
    };
[download]

UnderMine