<?php
function open_file($file) {
    
$f = @fopen($file"r");
    if (!
$f) {
        return 
PEAR::raiseError($php_errormsg);
    }
    return 
$f;
}
?>
<?php
$res 
open_file($filename);
if (
PEAR::isError($res)) {
    die(
"Couldn't open file: " $res->getMessage());
}
?>