sub strDate {

#array mit den daten
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);


#eine null vorsetzen falls der tag 9 oder kleiner ist um 2 stelligkeit zu erzwingen
if($mday<=9)
{
    $temp="0";
    $mday=$temp.$mday;
}

$mon=$mon+1; #+1 da monate bei 0 beginnen
#eine null vorsetzen falls der monat 9 oder kleiner ist 2 stelligkeit zu erzwingen
if($mon<=9)
{
    $temp="0";
    $mon=$temp.$mon;
}

$actyear=$year+1900;
$datum=$actyear.$mon.$mday; #datum zusammen setzen

return $datum;
}

require "sub/strDate.pl";
    
$blub = strDate();

print $blub;

# 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.