binmode $filehandle; open OUT, "> c:\\Apache2.2\\script_run\\BV_on_acc.txt" or die $!; binmode OUT; { my $buffer; while ( read $filehandle, $buffer, 1024 ) { print OUT $buffer; } } close OUT; close $filehandle; my $sth_cs = $dbh->prepare(q~update script_run_rules set running=1,run_user=? where NAME='BVonAcc'~) or die "Couldn't prepare statement: " . $dbh->errstr; $sth_cs->execute($u_email); my @args = ("c:\\Apache2.2\\script_run\\exec_bvonacc.pl", $u_email); system( 1,$cmd, @args ); print header; print Header_HTML(); print< $balken $scr_menue  

script started you will get an email when it's finished

$logo HTML }