if ($fname eq 'foo') {
...
}