while (my $cgi = new CGI::Fast) {
   open (FOTO, 'foto.jpg')
      or error($!);

   open (TEXT, 'text.txt')
      or error($!);
}

sub error {
   my $err = shift;
   print "Content-Type: text/html\n\n";
   print "Fehler: $err\n";
   warn $err;
}