open (FILE, ">>$db") or print STDERR "[$0] Could not open file! $!"; #### open (FILE, ">>$db") or die "[$0] Could not open file! $!"; #### if( open (FILE, ">>$db")) { print (FILE "Name:$name,Surname:$sname\n"); close (FILE); } else { print STDERR "[$0] Could not open file '$db': $!"; print "Sorry, an error happened: $!"; };