# abspeichern als XXX.pm
package XXX;
use Exporter;
our @ISA = ("Exporter");
our @EXPORT = qw (strDate sub_2);

sub strDate { # Ausgabe JJJJ.TT.MM mit führender Null
    my @jetzt = localtime;
    return sprintf "%4d.%02d.%02d", $jetzt[5]+1900, ++$jetzt[4], $jetzt[3];
}

sub sub_2{
    # Hier die nächste Funktion
}

# etc.