sub get_date {
my($sec,$min,$hour,$day,$month,$year) = (localtime($_[0]))[0..5];
my $datum = sprintf "%02d.%02d.%04d - %02d:%02d:%02d",$day,$month+1,$year+1900,$hour,$min,$sec;
return $datum;
}

sub new_pass {
my @password = ("a".."z","A".."Z",0..9);
my $password = join '', map { $password[int rand @password] } 0..7;
return $password;
}