sub file_exists
{
        my ($filename) = @_;
        #return (-f $filename);
        return 1;       
}