package global; 

# Packagenamen sollten übrigens mit einem Großbuchstaben anfangen,
# da komplett klein geschriebene Namen auf Pragmas hinweisen

sub test{
    my ($obj) = @_;

    print "Objekt aus programm.pl: $obj\n";
}

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use global;

# ein Testobjekt
my $cgi = CGI->new;
global::test( $cgi );