javascript -> perl

[walker]

hi!

das anlegen einer .log_datei hab ich inzwischen mal so geloest, daten werden im "myLogFile.log" auch richtig angelegt.
das subroutine wird aufgerufen nachdem die bildschirm_ausgabe stattgefunden hat

######### sub im script ###########
sub WriteToLog()
{
open(DATA, "+>>myLogFile.log") || die "Log-Datei nicht gefunden!";
flock(DATA, LOCK_SH);
my $User = $Name;
my $Pass = "0A$PwA-WN$PwC-EE$PwB";
select(DATA);
print "\n<tr><td>User : $User </td><td>Pass : $Pass</td><td>";
close(DATA);
}
######### sub im script ###########

ew<<