defined $filename or die "no filename given";