Frontend.pl					      Modul.pm
***************************      		        ********************************************* 
* I/O z.B. per  Konsole   *                             * Array    Objekt variable                  *
*                         *                             * zeiger   Objektvariable                   *
*-------------------------*                             *-------------------------------------------*
*                         *                             *                                           *
* $obj = lade Datei xy --------Modul->load txt(xy)----> * $self=bless("Modul",{})                   *
*   ^                     *                             * $self->{Array} = lade Datei xy            *
*   |                     *                             * $self->{zeiger} = 0                       *
*    \--<--------------------------($self)-----------------/                                        *
*                         *                             *                                           *
*                         *                             *                                           *
*                         *                             *                                           *
* $obj->get first (record) --------------get first----> * temp = $self->{Array}[$self->{zeiger}]--\ *
* print temp              * <-------(temp)--------------------------------------------------------/ *                         
*                         *                             *                                           *
*                         *                             *                                           *
*                         *                             *                                           *
* temp = 4; $obj->put temp --------------put(temp)----> * Array[$self->{zeiger}] = temp             *
*                         *                             *     # Array[0] = 4                        *
*                         *                             *                                           *
*                         *                             *                                           *
* $obj->get next   ----------------------get next-----> * $self->{zeiger} ++                        *
*                         *                             * temp = $self->{Array}[$self->{zeiger}]--\ *
* print temp              * <-------(temp)--------------------------------------------------------/ *
*                         *                             *                                           *
***************************      		        *********************************************