Auslagern von Variablen

[piet]

Hallo,

package allgemein;

use Sub::Exporter -setup => { exports => [ qw(host) ] };
use Sys::Hostname qw(hostname);
sub host {
    return (split(/./,hostname))[0];
}
1;

>   
> anderenorts:  
>   
> ~~~perl

use allgemein qw(host);  

> print host;

natürlich gefällt mir die package Variante besser (auch von selfhtml vorgestellt) ... aber wenn Ihr meint diese Variante ist sicherer... das soll mir nur Recht sein.

Wie sieht diese Variante mit mehr als einer Variable aus... und warum wird vor den Variablen kein '$' geschrieben.

Danke
        piet