open (SR, $file);

open (SR, "<$file") or die "Error: couldn't open file '$file': $!\n";

unless (open (SR, "<$file")) {
  die "Error: couldn't open file '$file': $!\n";
}

#! /usr/bin/perl
use warnings; # aktiviert die Warnungen, die oft hilfreich sind
use strict; # ueberprueft code strenger auf korrektheit, siehe meinen Vortrag
use CGI;

# hier werden fehler/warnungen im browser ausgegeben; das hilft
# sehr beim entwickeln, sollte aber, sobald alles laeuft, deaktiviert
# werden, um z.B. einem Hacker moeglichst wenig Infos zu geben:
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

# stellt die Variable $FindBin::Bin zur verfuegung; die enthaelt den
# pfad zum ausgefuehrten script, weil bei einem webserver
# nicht sichergestellt ist, dass er immer in das verzeichnis des
# scriptes wechselt, in dem das script liegt. Und durch 
# verwendung von FindBin wird das Script unabhaengiger von aussen
use FindBin;
my $file = "$FindBin::Bin/lyrics.db";

# neues CGI-Objekt erzeugen
my $cgi = CGI->new();

# http-header ausgeben:
print $cgi->header();

# parameter einlesen:
my $sinterpret = lc( $cgi->param('interpret') );
my $stitle     = lc( $cgi->param('title') );

# datei oeffnen:
unless (open (SR, "<$file")) {
  die "Error: couldn't open file '$file': $!";
} # unless

# einlesen:
while (my $rid = <SR>) {
  my $interpret = lc(<SR>);
  my $title = lc(<SR>);

  chomp($rid); chomp($interpret); chomp($title); # zeilenenden abschneiden

  # usw.

} # while

# datei schliessen
close (SR);