BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG, '>>', '/var/www/vhosts/meine-website.de/logs/mycgi.log') 
    or die "Unable to open mycgi-log: $!\n";
  carpout(LOG);
}