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;