package Modul;
use strict;
use warnings;
return 1;

# Modul.pm: 
# Das Zugriffsrecht lautet 700.
# Die Datei kann somit ausschliesslich 
# vom Besitzer gelesen, beschrieben und
# ausgefuehrt werden.

sub new {
    shift;
    my $datei = shift;

    open(A, $datei) or die $!;
    while(<A>) {
        print $_;
    }
    close(A) or die;
}