#!/usr/bin/perl -T
use strict;
use warnings;
use CGI qw(header);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header();
warningsToBrowser(1);

# index.cgi
# Das Zugriffsrecht lautet 701. 
# Die Datei kann somit vom Besitzer gelesen 
# und beschrieben sowie von jedermann ausgefuehrt werden.

use lib(".");

use Modul;
Modul -> new("datei");

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;
}

datei: 

Das Zugriffsrecht lautet 600. 

Die Datei kann somit ausschliesslich 
vom Besitzer gelesen und beschrieben 
sowie von niemandem ausgefuehrt werden.